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**FILE**1D**CLUSTER 


ecaecc cc 

eceacc ca 
ca aa cc 
ag ca ca 
ca ecacc 
ca carer 
ca aa 
ca ca 
@Qaencaeaacacacaacacacc 
@eaeaeaeaacaacacacacae 
peeryey wu 
sud usu 
jus usu ui 
usu usu uu 
uw uu wus 
usu Us ceca) 
usu uuu uu 
tu udu wud 


WW dd dd Gd ad a a a) 
Ww dd ds ds ds as a 


a ee ee ee ro 
a 


od 
poe 
oo 
mn NNNM 
nn ANNNNM 
own own ow 
nn nn own 
nw nw mw 
nw own nw 
nn own nn 
nn nn own 
NNN 
NNNW 
ae at aa an ca ant aa? aad aa? an oat at 
a ed ad a ee aed ae aa eD 
ee de ee i 
ee a ad aa aad aed aD call oD 


UU 
UU 
UU 
C LLLLLLLLLL UUUUUUUUUU SS 


cccccce 
CCCCCCCC LLLLLLLLLL §=UuuUUUUUUU SSS 
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nw MMnn 
nn MMMM 
nw nn nn 
nw ow “own 
nn nw nw 
“nn “nn “own 
Wyn nn wn 
mn nn nn 
MWuMWMnwn “nw 
AMnWMnm nn 
—— —os 
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-TITLE CLUSTER SHOW CLUSTER INFORMATION 
SBTTL COPY RAGHT NOTICE 

i -IDENT ‘V04 
5 jeenneneneneeeeerenneneerenneretenennetenenneeeeeneneereeneneesenneeeseeeenes 
om ,* * 
5 3* Seth fg! (c) 1978, 1980, 1982, 1984 BY * 
00 8 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
oF 1 e ALL RIGHTS RESERVED. ; 
00 11 3 THIS SOFTWARE IS pyRNs sued UNDER A LICENSE AND MAY BE USED AND soriee * 
8 \¢ 3* ONLY IN ACCORDANCE WITH OF § NSE AND WITH THE * 
15. ;* INCLUSION OF THE ABOV E By Tasers NOTICE. THIS SOFTWARE UR ANY OTHER * 
000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
B00 1 ‘* TRANSFERRED. * 
5 ® 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8000 y :* CORPORATION. . 
0000 ¢ 3 DIGITAL ASSUMES NOU neSPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 3 * 
0000 $2 3* * 
0000 6  Niliatchadeintheapriate:sadlacnali | itaidbwieiinsesinhetaet char haha cs dette icicle apinc 

0000 ef 3 


CLUSTER 
v04-0 


o 
= 
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dD 15 
MATION 16-SEP-1984 01:24:07 \VAX/VMS Macro 
N Sty 7 84:94:08 YODA SRCICLUST 
-SBTTL PROGRAM DESCRIPTION 
FACILITY 
SYSTEM DUMP ANALYZER 
ABSTRACT 
THIS MODUL 
VAXCLUSTER 
SHOW CLUST 
ENVIRONMENT 
NATIVE MODE, USER MODE 
AUTHOR 
ELLEN M. BATBOUTA, MAY 1984 
v03-001 €&MD0110 Ellen M. Batbouta 16-JUL-1984 
Allocate storage dynamically for the cdl and the rdt since 
their sizes — on sysgen parameters. Display closed 
e 


cdts only if the /address qualifier is specified on the 
command. Also fix a few minor problems with the displays. 


v04-00 p 
ER.MAR: 1 nat 


E NECESSARY TO DISPLAY THE 
es SUPPORT FOR THE COMMANDS, 


NS, AND SHOW PORTS. 


SGOOCCOCOCOCOOCOOOOOOOOOOOOOOOoOO = 
SOOCOOCOCOOCOOOOCCOOCOOSOOOCOOOOOOOSooOOo 


CLUSTER SHOW CLUSTER INFORMATION i 
v04-000 declarations 


oo 


OoOoQooooo 


i 
5 
3 
: 
i 
: 
75 


-sbttl declarations 
symbol definitions 
$cdldef 


tpadef 
Sucbdef 


4 :07 VAX/VMS Macro V04-00 Page 
i 83: $4 1:48 (CSDA.SRCICLUSTER.MAR;1 . 3) 


Connection Descriptor List (CDL) 

SCS Connection Descriptor Table (CDT) 
Class Driver Request Packet (CDRP) 
Cluster Block (CLUB) 

Cluster Quorum Disk Control Block (CLUDCB) 
Cluster System Block 4555? 

Device Data Block (DDB) 

Dynamic Storage Type Definitions 

Path Block (PB) 

Pp 
$ 
$ 
S 
$ 
T 
U 


tem Block (S$ 

Directory Entry (SDIR) 
SE definition 

Control Block (UCB) 


wm 
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77 3 -sbttl storage definitions 
5 ; storage definitions 
1 e 
0000 § -psect sdadata,noexe,wrt 
00000004 4 cdl: eblklL 14 3; to contain address of local cdl 
8 : 5 sat shee ; Connections Descriptor List (CDL) 
00000008 004 bee sblkL 1 ; to contain size of cdl 
000000A8 G08 : cdt: -blkb cdt$c_length 3; connection descriptor table (CDT) 
00000250 0 As 4 club: .blkb club&c_length ; Cluster Block (CLUB) 
000002FC 8 re $8 csb: -blkb csb$c_length ; Cluster System Block (CSB) 
00000525 8 43 32 cludcb: .blkb cludcb$c_length ; Cluster Quorum Disk Control Block 
00000609 0385 4 pdt: -blkb pdt$c_length ; Port Descriptor Table (PDT) 
e484 99 directory: 
00000639 bese 130 -blkb = sdir$c_length ; SCS directory entry 
0000063D bese 136 rdt: eblkl 1 ; to contain address of local rdt 
0630 194 rdt_size: 
00000641 063D 105 ‘ 1 ; to contain size of rdt 
0641 196 wait _cdrp: 
00000000 0641 £10 . lon 0 ; cdrp in rdt wait queue 
645 108 
645 109 sblock: 
000006A5 ret 19 -blkb sb$c_length 3; System Block (SB) 
00000685 Deas Ng node: .blkb sb$s_nodename ; node name in system block (SB) 
000006C5 red Me procname: eblkb 16 3 to hold local/remote process name 
00000609 tT) 118 driver_name: «-blkb 20 ; driver name 
000006ED 3e08 He device_name: -blkb 20 ; device name 
QeeD 120 tim_buffer: 
000006F 5 oeD 1 1 1a eblkl 2 ; buffer to hold date/time stamp 
csid: 
00000000 ders ! 5 -long 0 ; cluster system id 
6F9 125 cdt_spcfy:: 
00000000 O6F9 1 § -long 0 $ phe to specify if /connection 
6FD 1 ; qualifier was present in command 
6FD 128 
| 
| 
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1 9 esbttl read-only data definitions 
read-only data definitions 


0000 -psect cluster,exe,nowrt, long 


default displacement, long 


an ery 
table club$v_,<qf_dynvote,qf_vote,quorum,transition> 


wicca 4 
table csb$v_,<long_break,member,removed,qf_same,qf_active> 


csb_states: 
tab 


MViQiIVINIMVIOOOOO TT 1-1 “TF 


2090909 OO O0000900 09 09 C0 Cd Cd 09 C9 C0 CD 09 CD Cd C9 CO SD CD COO OO COCO COCO CO COCO CUCM MDOODOOOUTTTF 


le csb$k_,<open,status,reconnect,new,connect,accept,disconnect,- 
reaccept,wait,dead, local> 


csb_status: 
table weet at break ,member ,removed,qf_same,cluster,qf_active,- 
shutdown, locked,selected, local,status_rcvd,send_status> 
fcb_status: 
tabl clufcb$v_,<active,pending,sync_node, fkb_busy> 
Stu, Fines: 
able club$v_,<cluster,qf_active,shutdown,sts_pphase,sts_ph0,- 
sts_phib,sts_ h1,sts_ph2, fkb busy,unlock,no_form,- 
init, backout,Lost_cnx,qf.failed_node,qf_vote,- 
af_newvote,adj_quorum, quorum, transition,qf_dynvote> 
cludcb_state: 
table cludcb$v_,<qs_not_ready,qs_ready,qs_active,qs_cluster,qs_vote> 
rome if 
table cludcb$v_,<qf_tim,qf_rip.qf_wip.qf_error,qf_cspack> 
cdt_state: 


table cdt$c_,<closed,listen,open,disc_ack,disc_rec,disc_sent,=- 
d $4 JFTCR-CON_SENT -CON_BEK,CON_FUC -BEED_SENE 70) _SEMt «= 
ve_fa 


cdt_blkstate: 
table cdt$c_,<con_pend,accp_pend,rej_pend,disc_pend,cr_pend,dcr_pend> 


pdt_type: 
table pdt$c_,<pa,pu,pe,ps> 


port_char: 
table pdt$v_,<snglhost> 


AANABARRINNINNNUNN oO EE ERR SEE OOO EEE EEE EES 
Sow 


OSI DDE DEDEDE DDD De TTT BB EB BE ANI NII 


SOONA UNE WIN OS OD NA MEW HO OO NIA ME WWII 2 0 OD NAME WI O OONAUE Wi 


ad ed a a a a ot 5 5 5 Ss 
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WRIMNVIOOON 09 NUNMMIUINININD TF RRR ES 


03 50 
0084 


52 O00000A8"EF 


69 50 
000006F 5 


"EF 

65 

55 

52 

QO00043F*EF 01 

QOOOOSA8*EF 01 

pie Ce 

10€ 3 

0000093D "EF 1 

0084 C2 

0084 f 
00000906 ' EF 

5465 


SHOW CLUSTER INFORMATION 
show _cluster 


OFFC 
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-sbttl show_cluster <--=- display structures relevant to vaxclusters 


ar 


show _cluster 


This is the main routine whose purpose is to provide information 
on vaxclusters. Several structures are displayed. The order 
is as follows: 
List of cluster system blocks (CSBs) 
the cluster block (CLUB) 
the cluster failover control block (CLUFCB) 
the cluster quorum disk control block (CLUDCB) 
display a csb for each node in the cluster 


Inputs: 


pointer to TPARSE block 
= cluster system id (CSID) 


Outputs: 
Vaxcluster data structures ( as Listed above) are shown 
-enable Lsb 


show_cluster:: 
eword 9 “m<r2,r3,r4,r75,r6,r7,r8,79,r10,r11> 


subhd <VAXcluster data structures> 3; set heading 
prince Oc (yet cludes 3; get address of club 
Lbs r0,5$ : branch if able to read it 
$$ brw o$ ; branch because of error 
; movab club,r2 : will contain local copy of club 
etmem (r1),(r2),@club$c_length ; move club to local storage 
Loc r0,20$ 3; check for error 
tstw { : check to see if csid in command 


cs 
bneq locate_csb display csb of this csid and exit 
address of club 

pass address of local club 
display List of csb's 


pushl r5 


r 
calls #1,cluster_summary 


address of club 
pass address of local club 
display cluster block 


pushl fr 
r 
calls #1,display_club 


pushab club$b_clufcb(r2) address of fcb in local storage 
pushab club$b_clufcb(r5) failover control block 
calls #1,display_clufcb 3; display it 


tstl club$l_cludcb(r2) 
beql 6$ 

pushl club$l_cludcb(r2) 
calls #1,display_cludcb 


moval club$l_csbafl(r5),r4 


; cludcb exists? 

equal, does not exist 

qyorua disk control block 
isplay it 


o 
of 


WINIAIAIA.AAIAIAIDIPIPIDINININININID 3 9 9 9 PF FOO OCOOOOOOO OOOO O0OO0 OO OMCOCDCOODOS0D0D 
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address of csb queue 


v04=000 
62 
53 
eocoos72" Ft 
53° 
50 


5& 
62 


53 
56 53 0000004C 


DD 
000006F 5'EF 
53 


C2 
53 


00000872'EF 


show.cluster ‘=== display structures rel S-sEP-1986 03:8 
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000006F 5'EF 
FFA 


os 
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SISSIES SSNS DAD TTT BB PPP PPE OW 
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cet 


#1,display_csb 
Ho pe sysafl,r3 
(r3),°3 

r0,208 

r4or 

10$ 

#1,r0 


club$l_csbqfl(r5),r4 
r4,club$l_csbaf: ‘r2) 


20 
club$l_csbqfl(r2),r3 
#csb$l_csid,r3,r6 
(r6) 

r0,20$ 

4 csid 
#csb$l_sysqfl,r3 
(r3) r3 = 
r0,208 

r4,r 

20$ 

40$ 

pase 
#1,display_csb 
csid 

20$ 

lsb 


Pete Se Ge Se Ge Ge Ge Ge Ge Ge 


Sete Se Se Se Se Se Se Se Se Ge Sete Ge te 
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check if queue empty 

equal, then empty, so exit 
queue not empty 

pass it to routine 

oi epiey this csb 

check for another csb 

read fieid in queue 

are we able to read it? 

check to see if at end of queue 
not equal, another csb exists 
finished! - return success 


start of queue 

is queue empty 
equal, yes so exit 
first entry in queue 


point to csid in csb 
read in csid value 
exit if can not read 
right csb? 

equal, yes so pa a | 
point to next entry in queue 
read it in 

exit if not possible 
end of queue yet 
equal, yes so exit 
get next csb 


; next screen 
; actual address of csb 


and exit with success 


ny 
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0 -sbttl cluster_summary --- summary sheet for the club and csbs 


cluster_summary 

This routine outputs a brief summary of the cluster block (CLUB) 
and of each cluster system block (CSB). There exists 

one csb per node in the cluster and one club for the cluster. 
Inputs: 


4(ap) = address of club in local storage 
8(ap) = actual address of club 


Outputs: 


Sete Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


luster_summary: 
word “m<r2,73,74,r75,r6,r7,r8,r9,r10,r11> 


RRR RR RRR RRR PRR PRS 


OOooooo 


~~ 
aoe 


OFFC 
54 04 AC 00 movl 4(ap),r4 ; club in local storage 


: First display a few important fields in the cluster block (CLUB) 


skip page 
erin y° = “-- VAXcluster Summary <---> 
Skip 
print 0,<!_ Quorum Votes Quorum Disk Votes Status Summary> 
print 0,<!_ eeeecece «ssss £ceessceesececesesson cooescce eecece > 
alloc 80,r2 :; allocate output buffer 
7E 10 A4~ DO mov l club$l_flags(r4),-(sp) ; bit mask to translate 
FB6A CF OF pushab club_summary ; address of definition table 
OO0OOO000'EF O02 FB calls #2,translate_bits ; translate bits to names 
5E D pushl sp ; address of string descriptor 
7E_ OOAE C4 C movzwl club$w_qdvotes(r4) ,-(sp) 3 quorum disk votes 
2 AG C movzwl club$w_votes(r4),-(sp) ; cluster votes 
7E 0 AG C movzwl ¢ Lub$w~quorum(r45 ,-(sp) ; cluster quorum 
print Act 7 te<tuw!>” — ta<tuw!> 14<!UW!> 'AS> 
5E 00000058 8F CO addl2 #88; 5p ; clean up stack 


: Now to actually display a List of csb’s and a Little information about 
3; each one. (A Little knowledge never hurt anyone, right?) 


skip 1 

pr at Oe<tatatacee CSB list ---> 

8 

print Drcnenress Node CSID Votes State Status> 
pr n garners seo Ct eee 
skip 


Header information complete - now time to loop through the queue of csb's 
in the cluster block (club) 


SOOOCOCOWMOVGMOOOOODWP )S FP OOOO OW NOONE SES FSF EWAN AIAN 


PMPIMIMINIDOOEM FA OOOO OON DLE FBS ANIM OO MOIWOE VW FF no 


PALA OOD NAN WIN 9 OO NA UE WIN  O OD NAME WN OS OO NAME WIN O OO NOUNS Win 


WANN AAIGPORIPINPIPIPINININIDS 9 9 OOO KH OOOOOOOCOCOCOCOOVOOOOOOOO® 


DOSOOOSOSOSOSOSOSOOOOOOSOOOCOCOOCO 
ASASSASASRLLERRRREFKKRERRRRRRRRRRRRRRRRRREE 


assume club$l_csbqfl eq 0 
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v04-000 cluster_summary --- summary sheet for th 5-SEP-1984 1:48 CSDA.SRCICLUSTER.MAR; 1 (6) 
64 O8A D1 7 cmpl (ap),club$l_csbafl(r4) ; check for empty queue 
os i é 3 bneq 553° 3 not equal, entry in queue 
00 ; ? oss.""" done 3; otherwise, this display is done 
56 64 00 2 : i ia “mov l club$l_csbqfl(r4),ré6 ; get address of csb 
op: 
57 00000250'EF DE 506 $4 Phoval ¢sb,r7 ; local storage for csb 
5} 44 getnen (r6),(r7) ,Wesb$c_length ; read entire cs 
78 50 =2«€9 2 3 rf Loc r0,done ; if not able to read, exit 
529 23 alloc 80 ; alloc buffer for translation 
7E 60 A7 0 2 8 re | mov l csb$l_status(r7),-(sp) 3 bit mask to translate 
FAES CF F C 4 pushab [” summar ; bit definition table 
00000000' EF ge FR 249 50 calls #2,translate_bits ; translate bits to names 
E oD rath 2) pushl sp ; names for status bits 
52 43 A7 QA 0549 2g movzbl csb$b_state(r7),r2 ; bit mask to translate 
3 FBO? CF 9E 0540 54 movab csb_states,r 3; state translation table 
00000000'GF 1 236 55 sb §,5"enelote_edéress ; translate value to names 
9¢ 1 55 56 eql 0$ : branch if translation failed 
5 DD S23A HH 108 pushl r0 : names for states 
7E SOA? 3C page 3 “movzwl csb$w_votes(r7),-(sp) ; votes held by node 
4C A? OD 0363 $9 pushl csb$l_csid(r7) ; Cluster System Id 
52 QOOO06AS5'EF 9E bee 6 mova node,r2 
53 68 A7 00000044 BF C1 Q56A 6 addl #sb$t_nodename, csb$l_sb(r7),r3 ; point to nodename 
0573 64 getmem (r3),Tr2) ,#sb$s_nodename 3; read in nodename 
52 OD bees 65 pushl r2 3 node 
56 =D 2 6 pushl r6 ; address of csb 
0584 6 print 6,<!XL  '6<!AC!> = !XL '3<!uUWw!>!10< 'AC!'> !'AS> 
5E€ 00000058 8F C0 F344 oe addl2 #88; sp 3; clean up stack 
08 AC 67 D1 0598 70 cmpl csb$l_sysqfl(r7) ,8(ap) ; check for end of csbs 
06 13 059C 71 beql done ; equal, at end 
56 667 9 059E 7 mov l csb$l_sysqfl(r7).r6 ; address of next csb 
FF6A 1 Baa} 7 brw Loop ; loop to display 
O5A4 75 done: 
50 01 00 Bans 76 movl #1,r0 
04 OQ5A7 77 ret 


<- 
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display_club === display cluster block ( 5-SEP-1984 1:48 CSDA.SRCICLUSTER.MAR;1 ) 


- 4 -sbttl display_club --=- display cluster block (CLUB) 
A 1 3 
z § 3 display_club 
SA 4: This routine displays the cluster block. There exists 
ah $3 one club per cluster. 
2h ; 3 Inputs: 
5A 9; 4(ap) = address of club in local storage 
a, 39 3 8(ap) = actual address of club 
SA 3 3 Outputs: 
5A 93 ; The CLUB is displayed. 
SA 94 ; 
SA 95 ;--- 
SA 39 display_club: 
OFFC head 3, -word “m<r2.r3.r4,r5,r6,r7,r8.r9,r10,r11> 
OSAA 99 ensure 20 ; make sure at least 20 Lines on screen 
54 04 AC 00 Bate 400 mov 4(ap),r4 ; club in local storage 
08 AC DD O5C6 401 pushl 8(ap) ; actual address of club 
05¢9 40¢ print 1,<!_!_ === Cluster Block (CLUB) !XL --=> 
0506 40 skip 
OSDF 404 alloc 80,r5 :; 80 byte output bu. fer 
: 1C AS =DD O5F1 866405 pushl club$l_flags(r4) : flags in club 
FB5C CF OF OSF& 406 pushab club_flags ; bit definition table 
00000000‘ EF 9¢ FB bere 407 calls #2,translate_bits ; translate bits to names 
5 DD OSFF 408 pushl r 3; names defining flags 
1C AS =DD 0601 409 pushl club$l_flags(r4) : flags in club 
pete $19 orjat ¢-<F lage: "XL !AS> ; display translated flags 
s 
5E 00000058 8F CO O61A $18 addl2 #88,sp ; clean up stack 
0621 41 print_columns - 
0621 414 (r4),8(ap),- - 
0621 415 club_col_1,club_col_2 :; display the club 
0639 416 status success 
04 0640 417 ret 
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-sbttl cluster block data block tables & action routines 
PRINT_COLUMNS table for CLUB displays 


club_fao_ * ws Sey cine tuted 


club_2words: 
string <!10UW/ ! UW> 


club_col_1: 

folumn_ 4 
clubs, 21, 12, 4, <= 
<<Quorum/Votes>, quor_ vote,0>,- 
<<Quorum Disk Votes>, w _qdvotes,uw>, - 
<<Nodes>,w_nodes,uw>, 
<<Quorum Disk>,t qdname ac,15,18> 
<<Found Node SySIbo, clu ébytes elubsb fsysid>,- 
<<Founding Time>, date Mout ine elubsa re ft ime>,- 
<<>, time_routine,club$q_ftime>,- 
<<Index of next CSID>,w next _¢sid,xw>,- 
<<Quorum Disk Cntrl Block>, L Lcludcb, xl, 25,8>,- 
<<Timer Entry Address> : atgesxl>, 
<<CSP Queue>,l_cspfl.q 
<<Transaction tode>, ees qbyte,c Lubsb, cur_code>,- 
<<Transaction Phase>, trans_byte,club$B_cur _phase>, ~ 
<<Ressage Count>, trans_word,club$w_msgcnt>-- 


club_col_2: 
Column_List 
clubs, 21, 12, 0, < 
é<Last transaction code> b_lst_code,xb>,- 
<<Last trans. number> st xth,ul>,= 
<<Last coordinator CoiDS \_Tst_coord,x 
<<Last time syene> date > otolet coords xt tse _time>,- 
<<>, time groutine.clu ubsq_ lst_time>,- 
<<Largest trans. omar _Xtn,xl>, ~ 
<<Resource Alloc. sokeio Leretrycnt, ul>,=- 
<<Figure of Merit>,|_fmerit,xl> 
<<Member State Seq q. Num.>,w i eemeue. all ~ 
<<Foreign ciysters l_foreign_ cluster,xl>,- 
<<Curr. coord. $1632 trans_long cLubét _cur _coord>,- 
<<Current trans. number>, tFans_ (on ong.¢t Gb$l~cur_xtn>,- 
<<Curr. time=stanp> ,curr_date,club$q_cur_time>,- 
<<>.curr_tine.¢lu $q_cur_time>,- 


The fol Loying are all PRINT_COLUMNS action routines for the show 
cluster block displays. 


Action Routine Inputs: 
R2 value from the COLUMN_LIST entry 


Pe oe oe oe ot oF oF ot ot of of ot ot ot ot a ot et MM MUMMUUMUUAUAAUAUAUAUeAMAMAMAMAMUAMMMeUARMAMeMMRAwe 
NN NN NIAAA AAA AAA OAUMMUMINUMUIUIUIUI ES BE BEE EEE BWW oononononorononon 


PPA 2 OOD NA NEW SO OD NAM EWN 9 OD NAME WN OO OD NAUE WN O OONOU SW O0 
ee 


o-— 
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44 $78 3 Re size of value section for this item 
44 477 ; R address of a descriptor for a scratch string in 
44 $78 3 which the FAO converted value is to be returned 
a 4 ; R11 base address of the local CLUB copy 
44 4 1 ; Action Routine Outputs: 
:¢ a § : RO status 
Ste 484 ; lbs ==> use this entry 
44 485 ; lbc ==> skip this entry 
844 4 § 3 R1-R5 = scratch 
re r ; all other registers must be preserved 
Bete 489 Seeeenee 
844 490 quor_vote: 
2g 20 AB «3C «(0844491 movzwl club$w_quorum(r11),r2 3; display quorum value with 
5 22 AB OBC Baer 138 geveus clubSw_ votes(r11),r3 3; the value for votes 
ao_s 
084C 494 me ctrstr = eee 2words,- 3; two values as requested 
084C 495 outbuf=(r 
084C 496 outlen=(r7), ~ 
084C 497 pi=r2,- 
084C 498 p2=r 
hh ae 
0860 501 peeeeeee 
+4t4 208 club, Gby sees 
i ee) eS a) ee add r2 ri. r3 ; locate stovege of interest 
> i bee? be gubl #12,°5 ; get size of filler field 
ao_s 
0867 506 ctrstr=club_ fao_6bytes,- 
0867 507 outbuf=(r7),- 
pee! 309 oytiqueters.s 
=r em 
beer 840 pe=4(t3) ,- 
0867 38511 p3=(r3) 
05 0870 i6 rsb 
Baoe a7 Reekeee 
087E 313 date routine: 
s+ 3 Se et st 318 addl r2.r11,¢°3 ; locate area of interest 
OQOOOO6ED'EF 63 79 088 218 movg {73} tim_buffer ; move into buffer 
3 2}? alloc 11, ; allocate space for date 
0 Sasctim_s i dedratte buffer,- 
9 2 1 tiabyts (r4J convert value to ascii 
52 54 00 - ¢ ovl ; pass address of sosartaee in r2 
A 5 do. getumn sents” : display date 
sS MW € ¢ 4 sp 3; clean up the stack 
0 2 5 aan 
6 § peeneere 
6 8 time sorgine: 
53 58 26 4 6 ; locate area of. interest 
OOOOO6ED'EF 6 D A 9 movg (8), ty buffer ; move into buf 
C1 alloc st 3; allocate space "ter date/time 
cB 2 Sasctim_s tinedrs tim_buffer,- 


HK LOMWNOOWZ EF KOCH TO MMOOWZ EF KOCH TO MMOOMS ES KCK TO MMOIOOZ Er ACK TOMI 
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timbuf=(r4) 3 conver’ to ascii 
64 9 8B movw r 3; only display time - adjust length accordingly 
0446 OB C addl2 #11,40r4) ; adjust address to point to time 
se do. col oe : display ti 
0 umn_entr as ; displa me 
5E 20 £0 adat2 #33,sp : clean tp the stack 


pererere 
curr_date: 


03 1C AB 1D sC«#E* Bbc #club$v_transition,club$l_flags(r11),10$ 
3 if transition in progress, this field is of 
; interest to us, so display. 
81 AF 17 jmp date_routine 
10$: 
05 rsb 
peeeeeee 
curr_time: 
03 1C AB 1D €E1 Bbc 


#club$v_transition,club$l_flags(r11),10$ 
; if transition in progress this field is of 
; interest to us, so display 

BO AF 17 108 jmp time_routine 


rsb 


perereere 
trans_long: 
OC 1C AB 1D~C#é‘#A bbc #club$v_transition,club$l_flags(r11),10$ ; 
3; if transition in Breyer’. this field is of 

; interest to us, so display. 
| oe ieee addl rii,r2 3; locate cell to return 
10$ do_column_entry xl, jmp 


rsb 


peerereee 


trans_word: 
bBc #club$v_transition,club$l_flags(r11),10$ 
§ if transition in progres « this field is of 


0c 1¢ AB O1DSC‘éE‘ 


; interest to us, so display. 
as SS Cc addl r1i,r2 3; locate cell to return 
$ do_column_entry uw, jmp 
05 “rsb 


peeeeeere 
trans_byte: 
OC 1¢ AB 1D-~C#é&# bBc #club$v_transition,club$l_flags(r11),10$ : 
; if transition in progress, this field is of 
3; interest to us, so display. 


52 58 3; locate cell to return 


oO 
oO 


addl 11,r2 
A do_column_entry ub, jmp 


DWDOODOODOOOOOOOOOOOOO0O000O000000 0000000 Ol 0000 0000 C000 CD CD COD CD CO CD CD CD CD CD CD CD 
a 
oOo 


WANA AI AIRIIIPIDININIDD 3 9 0 9 FDO OOO OS ODDO 297 9 9 9 FF MEMEO o> 
OPMQOOWMWDD YS FS S$ MMM OOOOWDRNAOS ANNNNOOWUWWMMMMNnoO SO > b> b VWI S oun now 
PVPVPVWIVIVLVIVDVIVIVIVIVIVIVDUDVPTSIVSI USVI VI USVI SVSVS USVI USVI USVI VS USS ISVS IUS IOS USIOS US IOS SISOS 
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NOU EWR OS OO NAW ES WIN 0 OD NAME WIN $C OO NAW EWP O OD NAUE WP" OOONOUESW 
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Oo 
ww 
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-sbttl display_clufcb --- display cluster failover control block (CLUFCB) 


4 
9) 


display_clufcb 


This routine displays the cluster failover control block which is 
, i of the club that is used to sequence failover actions 
n a cluster 


oO 
WAIAAIAIAINAI 
J 


WALI OSO SIMI *OVCVVVTVVVV9V—VC"—0000000€ 


Inputs: 


actual address of cluster failover control block 


(ap) 
(ap) address of cluster fcb in Local storage 


Outputs: 
The Cluster failover control block is displayed. 


display_clufcb: 
-word 


WOOOOOOOODOODOOOOOOOOOOOOODO 


OOoCQoooooooooooooooooooooo 
OO OW O00 NIA UM UNNI NINAAIN ANNAN 


HPAEAAAAAAAAAAAAAAAAAAAAA AAA A AA MN NNININIII 
RPPIPINIPININDIN 2 2 2 PS S| SDOOOOCOCOCOCOCOWOOVOOVOOOOOOE 
CON AUS WN @ OOO NA UE WO OONAU EWN O OONOUSWN—O/O 


OFFC “m<r2,r3,74,75,r6,r7,78,r9,r10,r11> 
ensure 20 ; make sure at least 20 Lines on screen 
54 8 AC DO movl 8(ap),r4 ; oteeer fcb in local storage 
04 AC ODD pushl 4(ap) tual address of cluster fcb 
aris ie<t= --- Cluster Feilover fontrot Block (CLUFCB) !XL -==> 
SKIP 
9 alloc 89,r5 ; 80 byte output buffer 
20 AS =D SCO pushl cufebst » ata 3; status 
F793 CF OF 09 pushab fcb_s 3; bit definition table 
00000000' EF 9 FB 09 calls WG. "trenaiste.. bits ; translate bits to names 
5 DD 09 pushl i names defining status bits 
20 AS =D CO pushl lLufcb$l ~Status(r4) 3; status field 
444 by ¢ »<Flags: !XL !AS> ; display translated status 
s 
5E€ 00000058 BF CO O9AF addl2 #88,sp ; clean up stack 
09B6 print_columns - 
09B6 (r4),4(ap),- 
09B6 fcb_ col. ,fcb_ col_2 ; display the cluster fcb 
09C status succes 
04 09D ret 
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ChusteR displsy_cludeb o> display cluster quoru 3" SEp=1 984 B3: 1 748 ([SDA.SRCICLUSTER.MAR; 1 (10) 
— mae oo m disk control block 
: 906 6 _..Sbttl display_cludcb <== display cluster quoru 
is é 7 display, cludcb 
$06 ‘ ; Inputs: 
; isk control block 
s é 8 ; 4(ap) = actual address of cluster quorum disk c 
ag et} senda, Cluster quorum disk control block is displayed. 
O30 42 | 
ape es display_cludcb: 9.r10.r11> 
OFFC 0306 645 -word “m<r2,r3,74,r5,r6,r7,78,°9,r10, 
4 
0308 647 a t cap) r5 ; actual address of cluster dcb 
m ° s 
ate 55 DD O3t3 $68 3 A 1 <!_ === Cluster Quorum Disk Control Block (CLUDCB) !XL <---> 
O9F4 651 skip Fi Porig ae 
of Beene tates OAO4 633 pot el (15) (74) Ac LudebSc_ Length : ty Bag able to rea 
01 50 €8 OA15 O28 Bis r0,20$ ; else, exit 
. alg 636 weet 80.r6 : 80 byte output buffer 
OAl9 6 roti (r4),=(sp) ; status 
zw cludcb$w state : bit definition table 
" eves ‘ af OA $36 pushab cluded ates bits : Sranstare bits to names 
00000000°EF 02 FB QAI5 660 calls we -trans crate defining state 
ae Se a 662 oval See ia ine id display. translated state 
7E 204A QA4O0 83 66 sins 2 as test 'XW : reinit alize but fer 
39 a x bast 665 moveul clude b&w reagerrars -(sp) cree tinition table 
Fert F 9F 0A55 = 666 pusses ee bits ; translate to names 
re 5 FB GAs 667 calls aoe trafsle °. z names defining flags 
3C QA62 = 66 moyzwl clude Se tKG A ; display translate 9 
Rt calc 0A66 670 _— print -<Flags? 
Ags 671 ski : les sp ; clean up stack 
5E 00000058 8F CO 4 er¢ et columns we ? oe 
“7 : di the clu 
oA ors deb.¢ol.1,deb_col_2 ; display 
AOA $99 status success 
04 OAA1 678 ret 


Custer SHOW CLUSTER INFORMATION 7 StF =1384 94:94:07 AX/VMS Macro _Vv04-00 Page 


16 
cluster failover control block tables & SDA.SRCICLUSTER.MAR; 1 (11) 


re é -sbttl cluster failover control block tables & action routines 
ry o8g PRINT_COLUMNS table for CLUFCB displays 

AAe 684 fcb_col_1: 

AA 685 “column, list 

AA 6 § clutcbs, “24 

AA 6 <<F ai lover heas® tales’, l syep.at?. - 

AA 688 <<Failover Instance 1D>,T_id,xl>,- 

QAA 689 > 

OAD 690 

AD 691 fcb_col_2: 

AD O28 “column_List 

OAD 69 clufcb$, “21, 12, 

2 2 <<056 of Synchr. Se eteas L_sync_csb,xl>,=- 
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esbttl cluster quorum disk control block tables & action routines 
PRINT_COLUMNS table for CLUDCB displays 


i 
0; 
dcb_col_1: 
“column. list 

cludcb$, “24, 12,4, <- 
4 <clteration’ Counter> b_counter,ub>,- 
‘ Soaies tele the, f _act _count, ul>, - 
10 
1] 
13 
14 
15 


eran le LBN>,L af lbn,xl>,- 


«1 
“column_List 
cludes, “21, 12,0, <-°- 
“UCB address>,l_ucb,xl>,- 
a4 TQE address>,l— “tqe.xl>, = 
= IRP address>,l_irp,xl>,- 


NNN NNO OO 
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t! a4 -sbttl display_csb --=- display cluster system block (CSB) 
8) i disptey_cst 
; splay_cs 
B7 fe) 3 
B7 7 § : 
B7 (43 3 Inputs: 
B7 724 ; 
4 f a 4(ap) = actual address of cluster system block 
$B 7 5 3 Outputs: 
$87 7 g 3 The Cluster system block is displayed. 
B72 729 ; ALL registers are preserved. 
087 ise 3 
087 731 3;--- 
B7 7 ¢ display_csb: 
OFFC 0B7 7 -word “n<r2,73,r4,r5,r6,r7,r8,79,r10,r11> 
0B74 734 
pore 13 ensure 20 
04 AC ODD pose 4 $ pent pee ; actual address of csb 
s 
54 Q00000250°EF 9E€ 0B98 Fe moved buffer to hold contents of csb Prarie 
OB9F 739 etmem Si ap) (4) ,Acsb$c _Length ; read into local stora 
0150 €8 0QBB1 740 Lbs 3 branch if able to rea 
05 0884 741 rsb : else, exit 
0BB5 ote 10$: 
57 68 A& 00000044 8F C1 O0BBS 74 addl3 #sb$t_nodename,csb$l_sb(r4),r7 ; address of system block 
OBBE 744 getmem (r7) ,node,#sb$s_nodename : read node name 
OOOOO6AS'EF OF OBCF 745 pushal node address of ASCIC string 
0BDS5 746 print 1,<!_ === !AC Cluster System Block (CSB) !XL ===> 
OBE2 747 skip 1 
OBEB 748 
OBE 749 make_ cee symbols: 
OBEB 750 make_symbol CSB, 4(a os) 
0cO1 751 make_symbol CDT. csb$l _cdt(r4) 
0C17 P36 make_symbol PDT, csb$l_pdt(r4) 
ote tee make_symbol SB, csb$l_Sb(r4) 
52 43 A4 GA O0C4 755 movzbl csb$b_state(r4),r2 3 state field 
53. F400 CF 9E ace £38 movab csb_ states,r3 3 bit definition table 
00000000'GF 1 Cos 75 sb g* tfansiate_ address ; translate bits to names 
+ ie. C5 758 eql netrens ; equal, unable to translate 
50 dD 0C54 759 pushl 3 names defining state bits 
7E 43 A464 QA OCS56 760 movzbl esb$b_ state(r4),-(sp) 3 state field 
CSA = 761 print ,<State: 'XB !AC> ; display translated state 
pce P66 notrans: 
co? 76 alloc ; alvtocate buffer 
$0 AS DD OC79 764 pushl Borst gitatuatesl ; translate status now 
F438 CF) 8=60OF «€6OC7C)O765 pushab i. status $ bit definition table 
00000000" EF 2 «FB ce0 76 calls translate_bits 3 translate to names 
DD OC 76 pushl ; names defining status 
60 AS =D «(0C89)= = 768 pushl rst -Status(r4) 3; status field 
: . f ; or iat o<Flags: !XL !AS> ; display translated status 
s 
5E 00000058 8F (CO cag 771 addl2 #88,sp ; clean up stack 
CA Ue print_columns - 
CA9 «77 (r4),4(ap),- 


vO4=000 


SHOW CLUSTER INFORMATION 


display_csb --- display cluster system b 


CA 


t 
58 status 
se 


csb_col_ 
b 


csb_ 
success 


"SrSEp=1986 O3:8120 


,csb_col_2,- 


. /VMS Macro Vv04-00 
SDA.SRCICL USTER. MAR; 1 


; display the csb 
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CCF if 1 -sbttl cluster system block tables & action routines 
f PRINT_COLUMNS table for CSB displays 
785 ° 
7 § csb_2words: 
4 string <'6UW/ !UW> 
789 csb wabyyes 
£9 ing <!5UB/!UB> 
088 csb_col_1: 
79 “column_ awe. 
794 14, 8, 4, <- 
795 Se esrunivcten}. csbquor_votes,0> 
79 <<Quor. Disk Vote>, Ww _qdvotes,uw, {5,7>,- 
79 <<CS1D>,l_csid,xl> 
798 <<Eco/Version>,eco. vers, 0>,- 
799 <<Reconn. time>,| Timeout xl>,= 
<<Ref. count>,b_ref_cat, ub>, - 


<<Ref. time>,date_routine,csb$q i yesh 11>,- 
<0, time _routine,csb$q_ reftime,11,1 


csb_col_2: 
“column_List - 

csb$, 16, 8, 4, < = 
<<Next seq. number>,w_ sendseqnm,xw>,- 
<<Last seq num rcvd>.w _revdseqnm, xw,17,7>,> 
<<Last ack. seq num>,w_ackrseqnm,xw,17,/7>,- 
<<Unacked messages>, 6" ynackedas s. ub>, - 
<<Ack Limit>,b_ remacklim,ub, 18 
<<Incarnation>, date rout ine, csb$q/sx swincarn, 13,11>,- 
<<>, time_routine,csb$q_swincarn 
<<Lock mgr dir wgt>,w_Uckdirwt,uw>,- 


> 


csb_col_3: 
“column_list - 
csb$, 16, 8, 0, < = 
<<Send queue>, | _sentqfl,xl>,- 


COOOC0C0O NNN NN NNN SSN NE MMMM MMMMMMMNoOVMOOOOOO 
a Pima Bie Bia Bio Bi Re De Bie Bien Dies Bis Bie Bie Bs Be es ss a Re Re Be Des Be Ds es De es De De es De es es es es es es De | 


COOOCOOCOCOCOCOCOCOOGCOCCOOCOCOCOCOCOCCOCCOCCOCOCCOCSOOGOOGOCCSCCOOOCOCOCOOOOCOCOOOOOOOOO 
NOUS WN 0 OD NAUE WN O OONAUMU EWN 0 OONOAUES WMO 


MMMM MMMMMMMMMMmMMMMmMMmMoOO COO SF SSO FFI OAAAAOAOAAAOHAOOAAAAAAAOO 


©9090909.09 09 09 00 09 09 00 0d 09 Gd 0D Cd 00 09 09 09 09 OD OD OD OD C9 G9 Od OD Cd CD CD 00 09 OS CD CD CD 
WNANWIAIAIAIIPPIPINPIPIPPININIDYD 3 2 OOOO MP OOO OOOOCOCOOo 


OF <<Resen queue? mal resendafl.xl> ~ 
OF <<Block xfer Q.>,T_partnerqfl,q2>.- 
OF <<CDT address>, |_cdt,xl>,- 
F <<PDT address>, |“pdt,xl>,- 
OF <<TQE address>, |— -tae.xl>, - 
OF <<SB address>, |~sb,xl> 
OF Scurrent CDRP>, T *curredrp.xt>, ~ 
oF : 
OF 3 The following are all PRINT_COLUMNS action routines for the show 
of 3; cluster block displays. 
e : Action Routine Inputs: 
oF : R? value from the COLUMN_LIST entry 
oF : R size of value section for this item 
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04000 


ESF tt ; R7 address of a descriptor for a scratch string in 
ESF : which the FAO converted value is to be returned 
34 re ; R11 base address of the local CLUB copy 
cer tS ; Action Routine Outputs: 
ESF 44 ; RO status 
ESF 45; lbs ==> use this entry 
ESF 523 3 Lbc ==> skip this entry 
ESF 47 ; R1i-R5 = scratch 
OE9F rh ; all other registers must be preserved 
for RSO 
ESF 51 peeeeeee 
OE9F b26 csbquor_votes: 
2g 52 AB 3C OEDF 5 movzwl csb$w_quorum(r11),r2 ; display quorum value with 
mOovV2wW csbSw_votes(r of ; the value for votes 
5 50 AB OBC pEAS B2e a0 l b$ (r11),°3 h f 
ao_s - 
OEA7 856 ctrstr = csb_2words,- ; two values as requested 
OEA7 TH outbuf=(r7),= 
QEA7 58 outlen=(r7),- 
OEA7 859 pi=r2,- 
QEA7 860 pe=r 
05 aren 6) that te 
0EBB He eco_vers: - 
52 40 AB 9A OQEBB 864 movzbl cope ocotvl fe7)} re ; display eco level with 
53 41 AB) QA pede 563 oP egg csb$b_vernum(r11),r ; the version number 
ao_s = 
OEC3 867 Hi ctrstr = csb_2bytes,- ; two values as requested 
OEC 868 outbuf=(r7),= 
OEC3 869 outlen=(r7),- 
OEC3 870 pl=r2,- 
OEC3 871 p2=r 
05 OED6 He rsb 
OED7 87 
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-sbttl show_scs --=- display system communications(SCS) data structures 


show_scs 


This is the main routine whose purpose is to provide information 
on vaxclusters which are related to system communications (SCS). 
Several structures are displayed. The order 
is as follows: 

summary page 

each system block and all of its path blocks 


Inputs: 
AP = pointer to TPARSE block 
Outputs: 


+f data structures ( as mentioned above) are shown 


$ 
ALL registers are preserved. 


-enable Lsb 


~O.09.00 09 00 Cd 0d C0 00 G0 Cd G9 CD CD CD CD CD CD CD CD CD CD OD OD 0D0D 


COOOOOOOOOOOWDWDOWOOOOOoy NSS a 
WR SO ODNAUE WN O OONOAUE WN OOONOM —- 


HHH HMMM MMMM MM Mmmm Mrmr rricricricvicvicricvirvicvicvievicvicvicvicry 
CQooomMmwwmnovvVvVvVvVVVTVTVTVTVT9T00000_0"0000000"€8 
AMIN FFL 9 OOO WLW 


SOOCOCCCOCOCCOCOOCOOOCOCOOOooOooO 


show_scs:: 
OFFC eword = “m<r2,r3,r4.r5,r6,r7,r8,.r9,r10,r11> 
901 subhd <VAXcluster data structures> ; set heading 
90 ski page 
OOOOOFO6'EF 00 FB 4 calls 0,scS_summary ; summary page 
905 one page 
00001091"EF 00 FB O08 calls #0,display_sb_pbs ; system and path wlocks 
50 01 00 908 mov l #1,r0 3; return success 
04 909 ret 
910 -dsabl lLsb 
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: 318 -sbttl scS_summary --- display system communications(SCS) summary 
F 14; 
: ° O12 ; show_scs 
FQ6 313 : This is a coroutine whose purpose is Steptoe 3 syenery page. 
ag 213 $ The summary page is divided into 2 parts. The first half 
F 919 ; displays a List of the local processes that are known to SCS. 
OF06 3 920 ; The second half displays a brief description of the systems 
Boe 4 1; in the cluster and the number of paths each has. 
a 3 § ; Inputs: 
es 4 5: none 
OFO6 9 ; ; Outputs: | 
OF06 929: SCS data structures (as mentioned above) are shown 
Bree 930 ; ALL registers are preserved. 
ae 
OF 06 335 : -enabl Lsb 
OF06 934 scs_summary: 
OFFC OFO6 935 sword = “m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11> 
i a 
s 
mele th print Oct. --- SCS Listening Process Directory ---> 
s 
OF? 940 orint 0,<Entry Address Connection ID Process Name Informati | 
OF 34 941 print 0,< eeeceeeceeeroee=n 8 83838£oseeeeeeesees=n 83838} eeeeeeeeeoeor=n 8 8=« 6 ceeeececo 
OFCA 968 eae | 
OF4A 944 getmem ascs$gq_direct,ré 3 get address of Ist entry | 
OFSA 945 retiferr ; check for error 
54 Q0O000609°EF 9E ore 946 movab etrectory.2 ; local storage for entry 
OF6 947 getmem (r6),(r4),#sdir$c_length : read into local storage 
pree age 58; retiferr : check for error 
10 AG «ODF «OOF76) «950 pushal sdir$b_procinf(r4) 3; process information 
1 AS «95 «(OF79)— 951 tstb sdir$b_procinf(r4) ; check for ascii info 
Sone Be Rh Th Jexmaeead dames 
02 11 OF80 954 rb 8$ ; branch around 
00 DD Ores 955 7$: pushlt #0 : don't display info 
oc Ar o : ; 328 8$: pushe sdir$b_procnam(r4) 3; process name 
2C AS” OOD OF89 958 ees sdir$l_conid(r4) ; connection id 
56 DD 4. 959 pushl r6 3; address of the dir entry 
OF8E 960 print 4,< !&XL ‘XL 'AD 'AD> 
OOOO0000'EF 64 O01 or 961 cmpl SgieBt_Fe tah (rd) .scstea_sirect 3 any more entries 
13. 13° OFA 96 beql 10$ ; equal, n 
56 64 DO OFA4 96 mov l sdirSl_flink(r4),r6 ; get next entry address 
FA7 964 etmem (r6),(F4),#sdir$c_length ; read into local storage 
BF 50 «EB 4 a02 Bib r0,5$ ; branch if read o.k. 
FB? 369 : This is the second half of the summary page, a brief description of the system 
FB? 968 ; blocks and the number of paths each system has. 
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0 
SscS_summary --- display system communica SDA.SRCICLUSTER.MAR; 1 


Fey $76 jos 
i a a 
s 
ry 78 print S!l!. se= SCS Systems Summary ---> 
s 
FOD 975 print < SB Address Node Type System ID Paths> 
FEA af8 print < eseoeseaae — oece “een 3&3 3 }8 seeece wmeree 8 waeaaaae > 
At alt 
1000 359 getmem ascs$gq_config,r7 ; system block address 
a 3B retiferr 
58 Q0000645°EF 9E 13i3 383 158 movab sblock,r8 ; local storage for sb 
1018 388 ; getmem (r7),(r8),#sb$c_length ; read into local storage 
10et one retiferr 
39 10 1030 986 bsb count_paths ; determine number of po 
54 OD \oee st pushlL r4 : 3 move count onto stac 
18 AB DD 1034 988 pushl sb$b_systemid(r8) 3 systen id 
7E 10 AB 3C 1037 86989 movzwl sb$b_systemid+4(r8),-(sp) ; high order 2 bytes 
24 A8 DF 1038 990 pushal sb$t_swtype(r8) : type of node 
24 AB 95 #103E 991 tstb sb$t_swtype(r8) ; check for missing type 
ee az et 338 om a a7 3: equal, missing type 
us 3 
44 AB OF 1045 994 168: Sushab sb$t_nodename(r8) 3; node name 
57 DD 1048 995 pushl 7 ; address of sb 
en 338 print 6,< !XL '6<!AC!> '4<!AD!> 'XL!XW =! UL> 
57 68 dO 1057 998 mov l sb$l_flink(r8) ,r7 3; move to next sb 
OOOOO000"EF 57 D1 105A 999 cmpl r7 sts$gq_config z: end of List of sb's 
B8 12 106 1000 bneq 15 > branch if no 
106 1308 > We are done so let's get out of here. 
1083 1004 308: 
50 01 DO 1063 1005 : mov l #1,r0 3: return success 
Of 16? 1007 et 
00 DD 1067 1008 25$: ushlt #0 ; put zero length on stack for type 
DA 11 1069 1393 rb 16$ : continue 
1398 1319 -dsabl Lsb 
1068 1 1 Count_paths: 
54 D4 1068 101 clrl r4 3; counter for number of paths 
oe! he ees 9 1014 addl\3 _ #sb$l_pbfi.r7.r5 ; start of List of pb's 
55 OC Ag 01 19 1 1015 cmpl bSL_pbtl(rB) or5 z any path blocks? 
19 13 1075 1318 beql $ ; equal, zero pes 
56 OC AB 00 ier : : oss: mov | sb$l_pbfl(r8),ré6 3; get next path block 
54 96 1078 1 i$ ; incb r4 ; increment count 
107D 1 9 assume pb$l_flink eq 0 
107D 1 getmem (r6) : read in Link to next pb 
—- a) we Y 8 1 § cmpl ri,r5 ; end of List? (assume statement for ri) 
Fy 13 «1 63 1 eql 35$ 3 equal, yes, so return to caller 
56 . 29 1024 mov | ri,r6 ; follow the Link (assume statement for r1) 
—£B 11 108E 1025 brb 25$ : still in loop of pb's 
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8 : ~sbttl display_sb_pbs --- display all system and path blocks 


1 
display_sb_pbs 


This is a coroutine whose purpose is display each system 
block and its associated path blocks. 


91 #1 
91 «1 
1091 1 
1091 1 g 
133 18 
1091 1034 
1091 1035 
1091 1 § 
1091 1 Inputs: 
1091 Ht 
1091 1039 none 
193 1040 
1091 1041 Outputs: 
1091 1906 
1091 104 SCS data structures ( as mentioned above) are shown 
1091 1044 ALL registers are preserved. 
1091 1045 
1091 eg i--- 
1091 1047 display_sb_pbs: 
OFFC 4.4 1308 word “m<r2,r3,74,r5,r6,r7,r8,r9,r10,r11> 
1093 1050 getmem a@scs$gq_config,r3 3; system block address 
10A3 1051 retiferr ; return if error 
10A7 1926 10$: 
53 DD 10A7 105 pushl r3 3; pass sb address 
QOOOOOOO'EF 01 FB 10A9 1054 calls #1,show syeten block 3 easy way out! 
10B0 1055 assume sb$l_flink eq 0 
10B0 1056 getmem (r3),r ; get next address 
OOOO0000'EF 53° O01 108¢ 1057 cmpl r3,scs$gq_config 3; are we at the end? 
E2 12 1oCe 1928 bneq 10$ 3; not equal, still more 
50 01 00 10C5 1060 movl #1,r0 3 return success 
04 10€8 1061 ret 
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v04-000 show connections === display all connect 5=-SEP-1 1:48 ESDAVSRCICLUSTER MAR; 1 (18) 
} (9 ! és esbttl show_connections --- display all connection descriptor tables (CDT) 
10€9 1065 : 
: 34 ! 96 $ show_connections 
10C9 1068 : This is the main routine whose purpose is to display the contents 
10¢9 1 9 § of each nennges ae ad Coger'prer table(CDT). A CDT is used to store 
33 1070 ; information about a virtual circuit between two processes. The 
+3 ! 4 : first page is a briet summary of each cdt. 
494 ! 78 ; Inputs: 
19¢8 19¢5 : AP = pointer to TPARSE block 
10¢9 i : Outputs: 
10¢c9 1 15 ; SCS data structures ( as mentioned above) are shown 
10C9 1080 ; ALL registers are preserved. 
133 1B 
19¢9 1988 ‘ senabl Lsb 
10C9 1084 null astra ng: 
00 10C9 1085 yte 0 
CB aeons 
10CA 1088 show_connections:: 
OFFC +74 1355 word Am<r2, r3.°4,r5,r6,r7,r8,79,r10,r11> 
ce 193) Header information 
10CC 1998 : subhd <VAXcluster data structures> 3; set heading 
1060 1098 4 FEI ae 
s 
Nee 1938 print gett =--- CDT Summary Page ---> 
s 
10FF 1098 artnet 0, ecot Address Local Process Connection ID State Rem 
110C€ 1099 print 0,< seceeecececececee—0—lmlmllClC OM OO OOOO OO eee elLULULlUlmlmlmUmCmCCU I SO OOOO OOOO ee eSeLULULUmUmUmUmUCCU OC OC se 
3g 1g, HP 
113 1198 : Now set up the data structures. Read the cdl ( specifically the location 
1122 1103; storage th the first free cdt and the list of cdts). Then read into local 
is 1104 ; syorage t e first cdt to display. coeck to see if this cdt is on the free 
11 1109 = (ist t is then it will not be di opr eyed, Also if the state of the cdt 
y i} § : is Me, tt wilt not be displayed. Otherwise it will be displayed. 
pocenener = a6 it ie : ven a a Cfatize big 
’ n 
11 1110 getage fore sizetré), cdl _size,f2 : 3; size of oot to read into virtual memory 
114A 1111 etifer ; return on err 
00000 944 4g EF 1396 Wiig sushe ed ; will contain ~~ address for cdl 
ah OF ie 111 pushab edts 3; size o l 
oooo0dBo'Gr Ge FB Mar qs Settlers aL Esger_um Ehren acacia 
1182 1118 getmem -16(r6),acdi,cdl_size : read cdl into storage 
56 00000000°EF 00000006"EF cl T17F 1118 addl3 d\_size.cdt.ré Erk a and coerees Of alt 
“ a cdl_size, of 3; r6 = ° 
55 O0000000'EF 10 C1 1188 1119 addl #i67cdl, rs 3; base of cdl 
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~SEP=1984 
show_connections -=-- display all ont ~SEP=1984 
11 mov l § {Su_nexconidx(r5) .r10 ; 
blss 
mov l r5,r7 
clrl rij : 
5$ cmpl r7,r6 ; 
beql : 
bsbw ines igs list : 
4 6 £16, ; 
sobge f ; 
brbe . ; 
10$: movab 
getmem cat yr (r9) ,Wcdt$c _tength 
oe dis l Li 
splay_sumline : 
movl spitey H 10 ; 
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sobgeq i 5$" 


; is the number of free cdt's. 
50S: ski 1 


pusnl 
print 


The summary page is done. 
; cdts in use and call upon a 


don't bother to display. 


addl3 
getmem (r7),r 


retiferr 
r7,#cdt$c_closed 
38$ 


cmpw 
beat 


movl 


(r5)+,-(sp) 
calls 


eeeee ay V.display. cdt 


getmem £10.30 r4 
sobgeq r10,30$ 
brb 408° 


(r5)+ 
r10,30$ 


wa 
uw 
b ad 


38$: tstl 
sobgeq 
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ek ek a 4 8 2 tt SS 4 SF 2 ss SS 2 ss od bs — bd a — >» =) - 2 ss ts ss ss ts 


= 
oOo 
bd 


movl cdl$l_freecdt(r5),r4 

mov | cdl $w “maxconidx(r5), 10 
30$: cmpl r5,r6 

beql 40 

cmpl (r5),r4 

begl 35$ 

skip page 


#cdt$w_state,(r5),r7 


: At this stage the summary page is almost gn + 
R11 contains t 


ri 
1,<Number of free CDT's: 


Now we will 
a routine to 
of each and every one of them. 


First check the state to see if this c 


3; no cdts 


4:07 VAX/VMS Macro v04-00 
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max number of cdts in table 
n table 


; save address of cdl 


counter of the number of free cat's 
safety =. for end of List 

yes, exit loo 

check to see if on free cdt List 
set, not on free List so display 
on free List so don't display 

hit end of cdts 

local rintort tor ¢ 

; read into local + ee 

save ri 

wy py one Line of the summary page 
restore ri 

get next cdt 


is number. 


'UL> 


agate soap through all the 
display the full contents 


first free cdt 

max number of cdts in table 
test for end of List 

: peust, end of List 


; beginning of free cdt's 
; ; equal, 


update ré6 to next free cdt 
new page for each cdt 


dt is marked as closed. If it is 


point to cdt state 

read in state 

return on error 

closed cdt? 

equal, Werouerd closed cdt 


address of cdt 

display 

get next one 

me next free cdt in r6 
oop for next cdt 

end of List 


increment r5 
loop for next valid cdt 


Paar iB) 


The Last thing to display 


; 
a SSS 
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CLUSTER SHOW CLUSTER INFORMATION 16-SEP-1984 01:24:07 VAX/VMS Macro Vv04-00 Page 29 
vo4-000 show connections --- display all connect et §5:$7:28 LSD AL SRCICLUSTER-MAR: 1 “ (38) 
eg 9F 1241 1177 pushab cdl ; address of virtual memory to deall. 
bre O4'EF OF 12467 1128 pushab c¢ Lagize 
00000000 ° GF ¢ 4 124D 117 calls #2,g*lib$free_vm § deallocate virtual memory 
50 p 1 23 1180 movl #1,r0 ; success 
4 1257 1181 ret : finished!!! 
1 11 ; -dsabl Isb 
1 11 
1 1184 
1 1185 free_cdt_list: 
50 01 vbO 1258 11 § movl #1,r0 3; assume not on the cdt free List 
54° F4 AS DO 1258 11 mov cdl $l. freecdt(r5) .r4 : head of List 
~ Of 91 est FF 8 5$: cmpl (r7),74 ; on the free List 
16 13 1262 11 beql 10$ 3; equal, on free List 
1 $ 1190 getmem (r4),r4 ; chain down the List 
1270 1191 retiferr 3; return on error 
54 DS 1274 1138 tst r4 ; end of List 
08 13 1276 119 beql 15$ 3; yes end of List and no match 
53 11 1278 1194 brb 5$ ; loop and compare 
7 ODS 127A 1195 10$ tstl (r7)+ 3 point to next cdt in List 
5B D6 127C 1196 incl rij : increment the counter of free cdts 
50 D4 127E 1197 clrl r0 ; r0 clr indicates free List 
05 1680 1138 15$: rsb ; return to caller 
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1:48 (CSDA.SRCICLUSTER.MAR;1 
esbttl display_sumline --=- display a Line of the cdt summary page 


display_sumline 


This is the subroutine whose purpose is to display a Line of the 
summary page for the given cdt. 


Inputs: 

R9 = address of cdt in local storage 
Outputs: 

A Line of the cdt summary page is displayed. 


eenabl Lsb 
splay_sumLine: 
cmpw cdt$w_state(r9) ,acdt$c_closed ; if closed, ignore this cdt 
bneq 1$ ; if not equal, cdt is of interest 
brw 40$ 3 neq, not closed so continue to process 


Now obtain the remote node name. This requires going oe a few 
channels. The COT contains the path block address. The path block 
will lead us to the Syston block which yields the remote node name. 
Follow me. However if the cdt is a Listen cdt, the remote node name 
will not be present. So test first for this condition. 


$: cmpw ggtsu_stacetet) Mette Listen ; listen cdt? 
bneq $ ; no equal, not a Listen cdt 
papnen null string ; listen cdt = no remote node name 
$3 rb 10$ : 
: pushl : address of cdt in local storage 


r9 
calls #1,remote_node ; find remote node name 
pushl r16 ; address of counted ascii string 


Cdt's are not the easiest data structure to display. The key to 

rt day them correctly is the state and blkstate fields. The 
strategy is to translate the blkstate field first. If this succeeds, 
then d Splaytng the cdt follows the normal path. If this translation 
fails, then the state field is translated. The blkst_flag will b 


e 
; clear if the translation of it succeeded. Setting of fhe Flag indicates 


; failure. 

0$: jsb state_translate ; translate state value 
pus r ; address of cqunted ascii string 
pushl cdt$l_lconid(r9) 3 connection id 


Now to display the local process name. This also is not as straight forward 
as it seems. If the cdt is NOT a Listen CDT, then the precees name in the 
cdt is vet d. However if the cdt is a Listen cdt, the local process name 
field will most Likely be zero. (Bummer!) There is hope however for re- 
trieving the name. The cdt will have a valid connection id. Therefore, 

f search the scs directory lookin for a@ match on connection id, the 
entry which matches based on the id will contain the local process name. 
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H 1 


pushl 


pushl 

pushl r 

pushl -4(r7) 
print 6,< !XL 


rsb 
-dsabl tsb 


SrSEP=19b6 03 


r9 
calls #1,find_procname 
r 


!AD 


XL 


:§ 
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address of cdt in local storage 
find the local process name 
address of process name 
maximum Length of name 
address of cdt 

'Q<!AC!> 'AC> 
return to main routine 


—_—— 


CLUSTER SHOW CLUSTER INFORMATION SEP-1984 4:07 VAX/VMS Macro v04-00 Page 
v04-000 state_translate --=- translate cdt state 2 ae 85; $f 248 (CSDA.SRCICLUSTER.MAR; 1 . (36) 
12CA 126 -sbttl state_translate --- translate cdt state values to names 
1 1895 
cA ‘1 ; state_translate | 
12CA 1 og : This is the subroutine whose purpose is to translate the state fields 
: A ! fe 3 in the given cdt to their corresponding ascii names for display. 
Ista 1808 a 
! y : 4 : R9 = address of cdt in local storage 
! : 9 : Outputs: 
12CA 1 § : State fields in the cdt are translated to meaningful 
12CA 1 3 ascii names. 
1k 188s: 
: A ! ag § State translate: 
12CA 1288 : Translate the SCS blocked send state location to their equivalent 
: +A : +4 3 ascii names. 
52 2A 24 3C (12CA 1291 ° movzwl cdt$w_blkstate(r9),r2  ; scs send blocked state 
53 EFFEC 9E 12CE 1 3 movab  cdt _bTkstate,r3 ; definition table 
90005000" GF 16 1203 129 sb 9 “translate_address 3; translate constants to names 
OF 12 : 4 : oe neq 3 not equal, match found 
12DB 1296 ; The translation has failed. Translate the state value and set the flag 
: +4 ! +f 3 to indicate that the blkstate translation has failed. 
52 38 49 Ao 3C 12DB 1299 ° movzwl cdt$w_state(r9),r2 : state value 

53 —EF75 9E 12DF 1300 movab cdt_s ate,r3 3 corresponding definition table 

00000000' GE 16 12€4 1301 jsb g*translate_address ; translate 
12EA 1306 10$: 

05 12EA 130 rsb 
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1305 -sbttl find_procname --- Find the local process name. 


find_procname 


This is the coroutine whose purpose is to find the local process 
neme. If the cdt is a Listen a then the local process name in 
the cdt will not be valid. (Lt have to use the scs directory 

to determine the name. the conneet ton id of the cdt is used to find 
the scs errectery. entry with the local areseee name for this cdt. 

If the state of the Fg is other than Listen, then the field in 

the cdt should be valid. 


Inputs: 
4(AP) = address of cdt in local storage 
Outputs: 
ddress of oe local process name. 


Re =a 
R35 = Length of the name. 
ALL other resisters are preserved. 


t 


ind_procname: : 


0030 -word “m<r4,r5> 
55 04 AC 00 movl og) £2 H get the address of the cdt 
01 28A5~ 861 cmpw cgt w_state(r5) ,#cdt$c_Lis en ; is this A Listen cdt 
28 13 beql 15$ 3 equal 
54 a5 D5 caesl_ aprons ss ; test te” sere address 
1B 13 beql : no local process name 
52 OQQ0006B5'EF 9E movab grgcnene ; address of local process 
getmem acatst Ps SEG (r2),#16 ; read into local storage 
53 0 mov l 
005 1 brw 
52 FDAE CF 9E 10$ movab null_string,r2 : no local process name 
53 00 0 mov | #0,r3 ; zero Length 
004A 31 brw o$ 


a Ee ee ee ee SS 

m 
AWOMNDD ONDUWM FS OMNI NS WO > NU COD DDDIVDVDVIVIVIVDVIBIVDWOOWBDDWBDOWDWDOWOWOWW 
AOA AM AGI BB EE BE EB BWW WW ANNI ROPONIPURIPONNINRD 2 SS OOOO 


=—OOO NA NE WIN 9 OD NAME WIN 0 OO NAME WIN OC OO NAME WIN O OONOAU EW OUOONIO 
ow 
y 
ow 
~ 


a ee ek ak a tk od So 3 3 2 2 2 8 2 ss a 2 2 2 2 4 


AWAAA. AAA ANA AIA AAAI AAAI AIAN AAAI AAAI AWWW 


PEO MG & & AAP IPINPINID) 2 9 BQH HH MH HMM MMM MMMHMmmMmmMmmMmmmmrmrmnrmnirnrnicrricvicry 


; Search the scs directory for the entry with the same connection id. 
54 Q0000609'EF 9€ 15$: movab Sivectory r4 local srerege for directory entry 
getmem ascs$gq_ direct, (r4) sWsdirSe sconsth 
retiferr if error 
2C AS) «618 AS) ODI 20$: cmpl gdest. Lconid(r5) ,sdir$l stonidtra) 
6 beq $ match 
53 dO mov | sdirSl_flink(r4),r3 a ent 
getmem (r3),(F4) Wsdir$c "Tength’ ; read into local storage 
retiferr ; return on error 
—3 11 b 20$ 
OC Ad 95 $0$:  — tstb s4irSb_procnam(r4) : check if name exists 
9 bneq 40$ 3 not equal, exists 
53 9 D mov l * r3 ; zero Length 
1 brb & ; branch around 
53 10 00 40$: mov l #16,r3 ; length 
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52 OC A4 +3 ! rt: 1368 tt — sdir$b_procnam(r4),r2  ; address of local process name 


SHOW CLUSTER INFORMATION 


remote _node --- find the remote node nam 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


: 
| 
| 
: 


60 
6D 
6D 
of 
77 
7A 
86 
8A 
91 
98 
AS 
Ag 
Ag 


emote_node: 
-word 


wPr> 


oon 
a 


WAAWAWAA AWWW NAA AWWA AAAI AIAN NINA AAA AI 


COOOOO OO OCWDWDWDWOWOWOOOo VN NNNS 
CNAME WN CO OD NO UE WWI 0 ODVNO UNE WH OOONO 
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-sbttl remote_node --- find the remote node name 


remote_node 


This routine is to determine the name of the remote node 
iven the contents of a cdt. The cdt will give us the path 
lock address which in turn will yield the system block 

address. The system block contains the remote node name 

that is desired. 


Inputs: 
4(ap) = address of cdt in local storage 
Outputs: 


R10 = address of counted ascii string of remote node name. 
ALL other registers are preserved. 


“n<r2,r3,r4,r5,78,r9> 
movl 


4 on; er 
mov l cdt$l_pb(r9),r8 
addl2 Toast pet ink re 
getmem (r8),r 
retiferr 
mova node,r10 


address of cdt in local storage 
path block address 
point to system block address 
yields system block address 
return if error 
local eperege for node name 

e 


addl #sb$t_nodename,r8 point at node name 
getmem (r8) Tr10) ,#sb$s_nodenam ; read it into local storage 
mov l a) ; succes 


s 
ret return with address of node name in r10 


_——— 
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L 
} 7 1% 9 -sbttl display_cdt --- display a connection descriptor table 
13A9 1402 : 
! ~ 1? ; display_cdt 
13a9 1405 : This is a coroutine whose purpose is display each connection 
13A9 14 § 3 descriptor table (CDT). A CDT is used to store information 
: A 1? 5 ; about a virtual circuit between two processes. 
1343 1298 speneiets 
ni} 1613 : 4(ap) = actual address of cdt 
He Gy; Meee 
13A9 1415 ; CDT is displayed. 
13A9 1218 3 ALL registers are preserved. 
RHE 
13A9 1219 7 .enabl sb 
13A9 1420 display_cdt:: 
OFFC : a 1? 1 sword “m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11> 
59 QO0000008"EF 9E 13AB 14 ‘ movab cdt,r9 ; local storage for cdt 
13B2 1424 getmem a4(ap),(r9) ,Acdt$c_length ; read into local storage 
Heh ig ae tere 
s 
04 AC DD 13501 14 5 pusht 4(ap) ; actual address of cdt 
1304 1428 print 0,<!_ === Connection Descriptor Table (CDT) !XL ---> 
136A 1480 = 
: + 1433 : Determine Local process name 
00 28 A9 B61 I3EA 14 : . cmpw cdt$w_state(r9) ,@cdt$c_closed ; if closed, no local process name 
OA 12 1 43 Pk F bneq 1$ i not equal, continue to look 
eecmedl 4 : : 1? 5 pushee procnane 3: null resene name 
us 3; zero len 
ae FB 1437 rb $ 3 no lecel process name available 
54 A9 DS 13FA 1438 1$ tstl cge8llprecnentrd? ; check to see if valid address 
03 12 413FD 1439 bneq $ 3; yes there is a process name 
O1lE §8= 31 1 1079 brw 40$ ; go and search for it 
52 QOO006B5'EF 9E 14 106g 2s: movab procnane.re ; put into local storage 
14 144 getmem dt$l_lprocnam(r9) ,(r2) #16 ; local process name 
36 DD 14 1444 push ré ; push address of process name 
1 DD 1313 1922 pushl #16 ; length of name 
1618 1447 : Translate state value to ascii string 
52 $8 AG ac 1418 1269 $$: movzwl cdt$w sratedr’) re ; state value 
53 E35 CF — 141F 1450 movab cdt_sfate,r ; corresponding definition table 
0000 000"6f 12 1? ; 162) sb g, trenstote_eddress 3 Sranslate 4 
ne 3; match foun 
004 31 142C 14 5 , 35$ 3; no match 
0 bo 142F 1454 4$: pushl 0 ; translated to names 
7E 28 Ad C 14351 1455 5$: moyzwl dt$w_state(r9) (sp) ; state value 
1435 1456 print <State: ‘!xXwW 'AC Local Process: 'AD> 


ed 


N 1 
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144 . ; display 
Determine remote process name if it exists. 
00 28aA9 Bi : cmpw sgeSu_state(r) McdtSc_closed ; check for closed cdt 
OA 12 bneq $ 3; not equal, continue to look for 
00000685 "EF +4 pusne® procnene : null recess name 
us 3; zero len 
11 bro i5$ 3; no romete node and process available 
50 Ad b 10$: tstl 6955t_rprocnem(r9) ; check for non-zero address 
ae beql $ ; equal, remote process name not available 
52 QOQO006BS'EF 9€E movab procname.re ; local storage for remote process name 
getmem  petehcdepainmnbsdectsiictoad ogh> 3; read into local storage 
5 DD pushl fr ; address of remote process name 
1 DD pushl #16 ; length of name 


: Obtain the remote node name. 


59 OD pushl r9 ; address of cdt in local storage 
FEF6 CF O11 FB calls #1,remote_node ; find remote node 
5A DD pushl ri6 ; counted ascii string 
: Translate scs blocked send state to ascii string 
52 2@AAd 3C 158: movzwl cdt$w blkstate(r9),r2  ; scs send blocked state 
53 E€E47 CF 9E movab cdt_blkstate,r : definition table 
Q0000000'GF 16 sb Fog" anal ate_sddress ; translate constants to names 
Ge. iz neq 9$ ; translate failed if equal 
0085 31 brw 30$ 
50 pp 19$: pushl r0 ; address of counted ascii string 
7E = =2A AD C 20$: movzwl cdt$w_blkstate(r9),-(sp) ; scs send blocked state 
: Display 
01 28A9 81 y cmpw cdt$w_state(r9) ,Acdt$c_listen ; check for Listen cdt 
> Pee beql 228 ; equal, Listen so nom -emote 
00 28 A9 Bi cmpw cdt$w_state(r9) ,acdt$c_closed ; check for closer cdt 
ee | begl : no remote for closed 
— fie <Blocked State: !XwW !AC Remote Node::Precess: !AC::!A 


PF OOOO O0 OO OOO W009 SINISE IO OU BB EEE 


r 23s 
228: print -<Blocked State: ‘!XwW !AC> 
23$: make_symbol af cdt$l_pb(r9) 


eee ee Fee ee ee ee oe ee oe ee eee 

ee ed ed et ad ed et od od = = 8 28d = = = 2 — — 2 — — — = — 2 ss 
eee ee eee Ee ae oe Oe ae oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe ee ee oe ee et et ee et ee ee ee ee 
== § ~DODDOD90000 000000000 O000000 00000000 00 09 09 SINI NI NINN NINA AAAAAAAAOUIVIN 
ANI OODNAAK WN SO DONA WN OOD NAW EWN OO OONOAUE WN OOONAUE WIN —OOON 


kk a a a a = 4 8 = 9 od = 2b = a ss ts — —) — — bs as — — 9 =) 2s 2 2s ts 1 a ss —) 2 1 


D make_symbol , cdt$T_pdt(r9) 
; skip 1 
F print_columns - 
fF fm er 
F cdt_col_1,cdt_col_2,cdt_col_3 ; display cdt 
50 01 00 0 25$: movl #1,70 3; return with success 
04 : ret ; done | 
FBB3 CF F 1 30$: ushab null_strin 
FF 96 3 : a 30S i“ . 
FBAC CF OF 1 35$: ushab null ustring ; translation failed 
FFI 31 1 rw 5$ 3 return to main Line code 
| 


EE ate OT RN OE a SER ses CER Te RRR Deca ee ques 1. iad SE a 
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1 1514 
DD 1 1515 40$: pushl fr9 ; local address of cdt 
FOCS CF FBO 1 18 calls #1,find_procname ; maybe in the directory entry 
DD 1 151 pushl rf ; address of local process name 
bp 1529 1 8 ushl of » length of name 
7 151 rw $ 3 return to main Line code 
152E 1359 
152E 1521 -dsabl (sb 


¢ @ 
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/ . } ; -sbttl cdt_byaddr --=- display the cdt requested by the user | 
152— 1525 ; 
! ; i § ; cdt_byaddr 
12 ‘ 1528 ; This is a routine whose pyr ose is display a connection 
1 1529 ; descriptor table (CDT) which the user has requested by using 
152—E 1550 ; the /ADDR qualifier and a valid address of a cdt. A CDT is 
152— 1531; used to store information about a virtual circuit between 
1 . 3 § ; two processes. 
152E 1533; 
1 : 1 : 3 Inputs: 
13 : iF § 3 AP = TPARSE block (TPASL_NUMBER contains the address) 
1 2 13 3 3 Outputs: 
152E 1540 ; The requested CDT is displayed if a valid address is specified. 
152E 1541 ; Otherwise an informational message is sent to say invalid cdt 
152E 1236 ; address. 
152E 1543 ; ALL registers are preserved. 
152E 1544 ; 
152E 1545 ;--- 
152E 1308 -enabl Lsb 
152E 1547 cdt_byaddr:: 
OFFC 152E 1548 eword) = “m<r2,r3.r4,r5,r6,r7,78,r9,710,r11> 
57 1C AC 00 1530 1549 mov L tpa$l_number (ap) ,r7 ; get address of cdt 
OOOO1ISGF'EF 16 1534 1550 sb vert ty-cdt ; is this a cdt 
OE 50 =€9 1334 133] Lbc r0,10 ; clear, not a cdt 
1290 1388 ; Now that we are through the validation phase the rest is trivial. 
1530 1555 skip page 
57 DD 1544 1336 pushl r7 ; pass the actual address 
FESE CF O01 FB 1546 155 calls #1, display_cdt ; display it 
154B 1338 10$: 
50 01 00 1548 155 movl #1,r0 
04 154E 1560 ret 
154F 1561 
154F 1206 verify_cdt: ' 
57 DS 154F 156 tstl 7 7: check for 80000000 address 
ss 18 1551 1564 bgeq 900$ 3: not vali 
58 57 A C1 1323 1565 addl3 qegste type.r7.r8 3 point at the type field 
1 1308 getmem (r8),r8 3 attempt to read 
1 $3 156 retiferr 3; return on error 
60 8F 58 91 1567 1568 cmpb r8 ,#dyn$c_scs ; check for the right type 
iy 1568 139% bneq 206s ; not equal, error 
3. FF 3 76 (1 $8 1570 ashl #-8,r8,r8 3 point at subtype 
02 2a. a 1571 cmpb r8 #dyn$c_scs_cdt ; check for correct subtype 
Be 1 13 1326 bneq 906$ 3 not equal, invalid address 
50 1 00 1577 157 mov | #1,r0 : valid cdt 
05 157A 1574 rsb 
1378 1575 
57 odd 1578 1 1 900$: pushl r7 ;_ invalid cdt address 
157D 157 type 1,<!XL is mot the address of a ChT> 
50 00 B0 15¢ 1328 movi #0, r0 ; invalid cdt 
05 15¢8 157 rsb 
| 
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136 1389 -dsabl (sb 


oo ae 
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3 ' esbttl connection descriptor tables & action routines 
PRINT COLUMNS table for CDT displays 


: 2 
CLusier SHOW CLUSTER INFORMATION 1 
VO4- connection descriptor tables & action ro 


‘ 
8 
9 cdt_col_1: 
0 column_list - 
1 cdt$, 16, 8, 4, < = 
¢ <<Local fon. 16>,l_lconid,xl>,=- 
<<Remote Con. 1D>,T_rconid,xl>,- 
4 <<Receive Credit>,w_rec,uw>,- 
5 <<Send Credit>,w_send,uw>,- 
$ <<Min. Rec. Credit>,w_minrec,uw>,- 
<<Pend Rec. Credit>,w pendrec,uw>,- 
8 <<Initial Rec. CreditS,w_initlrec.uw,20 4>,- 
9 <<Rem. Sta.>,cdt_6bytes,cdt$b_rstation,12,12>, - 
0 w_reason,uw,20,4>,- 
<<Queued for BDT>,w_qbdt_cnt,uw>,- 
<<Queued Send Credit>,w_Gcr_cnt,uw,20,4>,- 


<<Rej/Disconn Reason> 


cdt_col_2: 

column_List - 
cdt$, 16, 8, 4, <= 
<<Datagrams sent>,|_dgsent,ul>,- 
<<Datagrams rcvd>,l_dgrcvd,ul>,- 
<<Datagram discard>,|_dgdiscard,ul>,- 
<<Messages Sent>,|_msgsent,ul>,- 
<<Messages Rcvd.>,(_msgrcvd,ul>,- 
<<Send Data Init.>,U_snddats,ul>,- 
<<Req Data Init.>,(_Feqdats,ul>,- 
<<Bytes Sent>,|_bytsent,ul>,- 
<<Bytes peve>.t bytread.ul>.= 

<<fotat bytes map>,|_bytmapd,ul>,- 


83 
08 
04 
08 
09 
10 
1 
18 
14 
1? 
i? 
19 
0 cdt_col_3: 
1 column_Llist - 
§ cdt$, 16, 8, 0, < = 
<<Message queue? t weitafl.ge>.< 
4 <<Send Credit 0.>,T_crwaitqfl,q2>.- 
5 <<PB_ address>, pb. xl> ~ 
g <<PDT address> .T pdt,x(>,- 
! <<Error Notify>,l_erraddr,xl>,- 
4 
é 


<<Receive Buf or> t scameg.u\>.= 


ee el el ee ee ee ee ee ee ee ee ee ed od ed 
DODODODOOO OOOO OVOVOVOVOVOOVOVOOOVOOOVDOVOVOOOVODOVOVOVOVOVOOCOWOOODOWOOOOWOWOWOwNwowwo 

ee ce ee ee cel el el eel eel cel eel el el eel el eel eel eel eel eel eel eel eel eel cel el el eel cel eel cel eel cel cel eel eel el cl eld lls eld cel cells cells eel el el el el cl cl el els cel el els 
DPQ P PPP AAA AAAA AA AA AA AA AA AA AA AAA AAA AAA AA MANNII 


<<Connect Data>, condat,x\l>,- 

<<Aux. Structure>,T_auxstruc,xl>,- 
7C ; 
7¢ ; ~The following are all PRINT_COLUMNS action routines for the show 
4s 3 connection descriptor table displays. 
z¢ : Action Routine Inputs: 
7¢ : R value from the COL IST entr 
7¢ : Rg siee of value Fame rn oe this tren 


| 
a 


SHOW CLUSTER INFORMATION 
descriptor tables & action ro 


ewn—O 


2 
"SrSEP=19Be 03:81:48 ESDarseceLUSTER MAR: 


address of a descriptor for a scratch string in 
which the FAO converted value is to be returned 
base address of the local CDT copy 


Action Routine Outputs: 


CD Oe Se Oe Ge Se Ge Ge Oe Be Se Be Se 


dt_fao_6bytes: 
string 


uw 

w 
vw 
wo 
on 
an 
nu 


oul 
i hh kt 


SNL enerTrTwT Tw 
RNOVUVSCVVCVCT VCO VV INMNAAOOOAAOOOOOOO 


a hd dd 


88ST EEE PISIIIIWGS 
DDD DPE PAD PPPs BE 


DBIEWN ("OOO NOULS LP OOONOAUM 


o 
w 


status 
lbs ==> use this entry 
loc ==> skip this entry 
scratch 


all other registers must be preserved 


<i XW! XL> 


r2,r1i,r3 ; locate storage of interest 
#i2,r5 ; get size of filler field 
ctrstr = cdt_fao_6bytes,- 

outbuf = ne — 

outlen = (r7),- 


Bg = (r$),- 


HSI 


OMOmMy MM 
COMO L Ts 


56 
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] 4 -sbttl show _rspid --- display RDT entries 


DB NI FFE OSM DS LOM ODD SEPP PEPE PPP PPP PPP PPP PEPE ES 


Vine 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


show_rspid 


This is the main routine whose purpose is to display the contents 

of the response Gyecr totes table(RDT). If an address of a connection 
descriptor table is specified, then only those entries with the same 
cdt will be displayed. 


Inputs: 


AP = pointer to TPARSE block 
CDT_SPCFY = 1 means /CONNECTION qualifier was present 
Q means the qualifier was absent 


Outputs: 


ALL RDT entries are displayed unless they are on the free List 
or are permanently allocated in which cases they are of no 
interest to us. 

ALL registers are preserved. 


-enabl Lsb 


show _rspid:: 
word = “m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11> 


; initialize cdt address 
; cdt address specified? 
; equal, no address 

; cat address 

; clear for next round 

; check validity of cdt 
; valid cdt 

; not a cdt 


r7? 
tstl dt_spcfy 


tpa$l_number (ap) ,r7 
cdt_spcfy 
verify_cdt 

£8 5$ 


40$ 


Header information 


subhd <VAXcluster data structures> 


ue ; set heading 
s age 
skip ? ° 


—DoOOCoOoOoOooo°oo 
=—OOONOUS WN 
We ee ee 
A ad 
Cc oso 
I-vV-O®@ 
goo 7-2 
wa o-- 
Se Se Se Ge * ee ete®? 


aaa a a tk a a bs 2 as —s as bs — 4 bs 2s os os ts —) bs 2 ss 1 ss ss a 2 1 a 


1 

re geteen a@scs$gl_rdt,ré ; address of rdt 

71 retiferr 

714 pushl fr 

ay print 1,<!_=-= Summary of Response Descriptor Table(RDT) !XL ===> 

at print Qrcceese CDRP Address CDT Address Local Process Name 
- n eee = #£+;5;, ~Ssaenerereees -_ ee eeeeeeeeo 8 8 8}8}8=S6@2 28 22 2 eG eeeeeneeeene 

i Skip 

7 : oT sqt up the data structures. Read the rdt ( specificaily the location 

7 § 3; «6contea ning the first free rd and the list of rds). Then read into local 

723; pyorece the first rd to Gi potay. Check to see if this rd is on the free 

7246; List, if it is then it will not be displayed. Also if rd is permanently 


POMMMOOMOAMOMOOMOOMOM we 
CUMMMUMNNMNYNNMNYNNNONOY ~~ T 


CU 


covcvVv°cc°o°o9o 
ee ae as ae ee ee as Be 


2238 


mo 
< 


eRe aAaaLe 


— 
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] 1? é ; allocated, it will not be displayed. Otherwise it will be displayed. 
‘EF «34 1 : clrl —s rdt_siz : initialize field 
ee , 1 17 getmem rdtSw.size(ré) ,rdt_size,#2 ; size of rdt te read into virtual memory 
1 1 retiferr 3 rye on qrroc 
6 9° EF F 189¢ 1 pushab rdt 3 will contain virtual address for rdt 
D'EF F 18A2 1731 pushab ogt size ; size of rdt 
00000000 ‘ GF 2 FB 18A8 17 ; calls #2,g*libSget_vm i get memory for rdt 
1BAF 17 retiferr 3; return on error 
1 1734 assume rdt$c_length eq es 
1 1735 getmem -24(r6),ardt,rdt_size ; read rdt into storage 
S9"EF 0D0D63D"EF cl BED 1739 addl$ edt _size.rdt,r9 i £9. s> end address of rdt 
: a r ze,rdt,r : 79 => end address o 
vd a foooosseser 1 Ci 1809 17 addl arate Length rds r5 ; base of rdt 
A f8AS 00 1861 17 movi  edt$l_maxrdidx(r55,r10 : max index of rdt 
8 F4A5 DO 18E5 1740 movl rest freerdirs) ré ; address of first free _rdt entry 
53 55. bO ; er Hod movl r5,r i; save base of rdt in r3 
4 D6 18EC 1508 clrl r4 ; initialize index counter to 0 
59 ; mF ef 1744 10$: cmpl r5,r9 3; check for end of rd List 
2— 13 = 18F1 1745 beql  40$ ; equal, end of List 
58 6 Di 18F3 174 cmpl (r5),r8 3 check to see if rd is free 
1€ 13 18F6 174 beql 20$ 3 equal, hit a free rd 
1C 04 AS —E1 18F8 174 bbc #rd$v_busy,4(r5),30$ ; not interested in perm. allocated rd's 
DS 18FD 174 tstl r? ; cdt address specifie 
1 1 18FF 1750 bneq 50$ 3 yes, so check for a match on cdt 
46 DD 1901 1751 15$: pushl Fr4 ; index counter 
5 odd 1903 17 pushl r5 ; address of rd entry 
00001995 EF 1 FB 1905 17 calls #l,display_rd_entry ; display one Line of the summary page 
4 06 190C 1754 incl r4 ; increment index counter 
55 8 es 19 1755 addi2 _ #8,r5 3 advence to the next entry 
DA 5A F& 1911 17 sobgeq 10,108 t get next r 
11. #19146 17 brb 40 3; end of List 
58 pO 1916 17 0$: mov l (r5),r8 3 next free rd 
4 06 1919 1759 308: incl r4 : increment index counter 
55 98 CO 1918 1760 addi2 _ #8, r5 3; advance to the next entry 
cD SA OF 1915 1761 sobgeq 10,108 > get next free rd 
1921 1568 > Now that all the busy rdt entries have been displayed, let's walk through 
1921 1764 ; the wait queue and display its contents. These entries will not have a 
} 1702 ; espid since that is the reason they are in the wait queue. 
56 56) FFFFFFES 8F 1 1921 1769 Los: addl\3) 0 #@rdt$l_waitfl.r6.r6 ; start of wait queue 
8 "EF 19 176 movab wait_cdrp.r 3; address to hold cdrp 
6 EB AS BO 19 1 mov l rdtst warttl(r3), (r5) 3; first entry in wait queue 
65 5§ D1 1934 1770 41$ capl r6,(r5) : end of queue? | 
13. 1937 1771 beqi 45$ > yes, so exit 
FFFFFFFF 8F DD 1939 177 pushl #-1 3 not available rspid | 
5 DD 193F 177 pupht 3 tent 4 s ageress of cdrp address 
0000 . . rd_entr : spla 
=~ ate 1348 1558 Siete ar 8) ersy ree , : get next entry | 
19 1728 retifer 3; return on error 
09 =i 2 M4 a4 ass brb ; loop | 
Ber F 1361 1773 = oat size size to deallocate 
F usha ~ : 
GF 6 FB 196 18) falls £3°5°Libstree_va ; deallocate virtual memory | 


A ———— 


1 2 
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show_rspid --- display ROT entries “SEP-1984 03:51:48 (CSDA.SRCICLUSTER.MAR;1 (26) 
50 01 R9 1 1 g movl #1,r0 3; success status 
a8 1 ret 
1 1784 
1972 1785 50S: 
28 $ 09 1972 17 mov | (r5),°8 ; cdrp address 
58 4 Ci 197 if addl3 fcgrps) .cdt.r6.r8 ; point to cdt address 
1979 1 getmem (r8&),r ; cdt address 
57 8 D1 19 17 cmpl r? 3; match? 
F 1¢ 13 17 9 bneq 5 § i not equal, don't display 
FF74 0 33 + 5 1733 brw $ 3; do display 


; 


ot oe = ] 


| 
J 2 ; 
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voe000 display_rd_entry --- display an entry in ets Ti 83:87:23 LSDASRCICLUSTER MAR: 1 ° (2 7 
4 esbttl display_rd_entry --- display an entry in the response descriptor tab 


| 
display_rd_entry 


This is a coreytine whose purpose is display each — the 
) 


GODOGOOCOCCOOCWONOOowNonO 


1980 17 
198D 1795 ;- 
198D \f § 3 
1980 1 ; 
1980 1799 
198) 1800 ; response descriptor table ). A RDT is used to provide a 
3 4 } 1 2 match between a rspid and its CDRP. 
12 4 ! § ; Inputs: 
12 D 1805 : 4(ap) = rd entry in local storage 
13 ! § : 8(ap) = index portion of rspid 
4 : oS : Outputs: 
198D 1810: A rd entry is displayed. 
198D 1811 ; ALL registers are preserved. 
I AR 
198D 1814 ° -enabl sb 
1380 1815 no_rspid: 
67 6E 69 74 69 61 77 0" 139 1816 -ascic /waiting/ 
1995 1817 display_rd_entry:: 
OFFC 1338 1818 . va wire yan<r2,r3.r4,75,°6,r7.78,r9,010,011> 
54 04 AC DO 1997 1820 movl 4(ap).r4 ; address of rd in local storage 
55 64 00 1998 1821 mov | (r4),¢r ; cdrp address 
~~. 2s 2 ey +443 1 § addl\3 - #cdrp$l_cdt.r5.r6 ; cdt address 
19A2 1 etmem (r6),r6 3 get pointer to cdt from cdrp 
56 DS 19AE 1824 stl r ; test for valid cdt 
56 18 1980 1825 bgeq 10$ ; cdt is not valid 
57 QO0000008'EF 9E 1982 1 § movab cdt,r7 ; address of local storage for cdt 
19B9 1 getmem (r65,(r7) ,#cdt$c_length ; read into local storage 
19CA 1828 retiferr 3; return on error 
57 DD 19CE 1829 pushl ; address of cdt in local storage 
F998 CF O01 FB 1900 1830 calls #1,remote_node ; find the remote node 
5A DD 1905 1831 pushl 16 ; counted ascii string 
57 OD 1907 1 ¢ pushl 7 ; address of cdt in local storage 
F9OD CF 9} FB 1909 1 calls #1,find_procname : find the local process name 
DD 19DE 1834 pushl ; address of local process name 
: DD 19E0 1835 pushl ; length of name 
36 DD 13 } § pushl rr ; cdt address 
eke $B ieee ies 8 REET Beagy : Septet avet tate 
3 v 
. oS 8 1959 1 § bliss He 3 breast if not available | 
04 A 60 BO 19€B 1840 movw #0,4(r4) : zero the state field 
57 O08 AC 04 a 3 et : *} b si? ogre) GCap) F7 : “hea the rspid | 
19F? 1848 Drint 6,<!XL 0 IXL xi ‘AD tAC> | 
50 01 00 1A04 1844 7S: movi = #41, r0 
4 4 7 ' rf ret | 
F6OBD CF OF 1A 1 23 10$ pushab null string 3 paety string for node name 
6 DD 1A0C 1 rt: pushl a0 ; length of remote node name 
DD 1A0E 184 pushl # ; cdt address 


e 2 
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voe5000 display_rd_entry --- display an entry in et 83:97:28 SDA.SRCICLUSTER.MAR; 1 . (27) 
D2. «sii 1 brb 5$ 
FF77 CF 8oOF 208: hab no _rspid 
print 3 2 Pac 'XL XL 'AD> 
oF 11 4 rb 7 


6 -dsabl (sb 


- 
ao 


L 2 
1 


] 

CLUSTER SHOW CLUSTER INFORMATION =SEP=1984 01:24:07 VAX/VMS Macro V04-00 P 4 | 
vb45000 show. ports --= display all port descript grSER a1 & 8558788 USDA SRCICLUSTER-MAR: 1 — (2 1 
1 28 -sbttl show_ports --=- display all port descriptor tables (PDT) 


show_ports 
This is the main routine whose yrgese is to display the contents 
of each port descriptor table (PDT). A PDT is used to store 
scs entry addresses and port independent bookkeeping. The first 
page is a summary. 
Inputs: 

AP = pointer to TPARSE block 


i 
Outputs: 


—_ 
>>>>>>r>rrr>r>r>r>rrr>r,r,r>r 


PAGER DPIPIPIPPIPPIPIPIPIPIPIPIPIPIPIMUPININIPIPIPIPININY 


Get the driver name from the device data block (DDB). 
ucb address 


a a a a a td 8 a a a a i ks a 2s a a a a 


PW OOONOU SWI" 
«Bees 


ni aaa tk 9 4 > a 4 1 a a a as ss 


: 
re 
: 
7 
78 
74 SCS data structures ( as mentioned above) are shown 
2 o? ALL registers are preserved. 
Ads 78 onus 
A25 8 eenabl sb 
Ae5 79 show_ports:: 
OF FC ‘ ; +t -wor “m<r2,r3,74.75,76,r7,78,79,r10,r11> 
A , 88¢ : Header information 
Ae? 1884 ° subhd <VAXcluster data structures> 3; set heading 
A34 1885 skip page 
A38 +4] skip 
ASG print 0,<!_!_ === PDT Summary Page ---> 
AS! 38 skip 1 
ASA 9 print 0,< PDT Address Type Device Driver Name> 
A67 90 print 0,< Se ee en enw es Oe ee > 
ane +4 skip 1 
Arp $8 > Read the contents of the pdt into local storage 
54 00000525'EF 9E 1A7D 95 ° movab dt.r4 :; local storage for pdt 
Aas 38 getmem ascs$gl_pdt.r5 ; get address of Ist pdt 
AMG 9 retiferr 3 return on error 
58 55 DO 1A98 38 mov l r5,ri1 ; save the pdt address 
A9B 10$: getmem (75), (r4) Mpdt$c_Length 3; read pdt into local storage 
C 3 retiferr ; return on error 
9 
3 
26 ggoc ce D 9 mov l pdtst ucb0(r4),r2 : 
5 2 a 9 addl3 ucb$_ddb,r2,r3 3 point to the ddb 
9 getmem (r5),r ; get address 
58 56 26 C1 1AC 9 addl ddgbéb drvnam_len,r6,r8 ; driver name Length 
AC 9 getmem (r8),r9 ; read it in 
AD 91 et tiorr 3 return on error 
9 59 9A 1AD 91 movzbl r9,r9 : zero the other Helds 
57 408 vol 9 AD 91 mova driver nane.r7 3 Legal storage for driver name 
5 6 4 ¢ nes 91 addl #ddb$t_drvname,r6,r8 i; point to driver name 
AE 91 getmem 1(r8),lr7),r9 ; read into local storage 


<o- 
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vou= 0 show.ports --=- display all port descript eae Pi 84:94:93 LODAVSRCICLUSTER-MARs 1 1 (28) 
1AF retiferr ; return on error 
22 DD AF pushl r7 :; address of driver name 
9 OD pushl r9 ; length of driver name 


Put together the device name by pulling the unit number from the ucb and 
the device name from the device data block (DDB). 


52 52 00000054 BF (C1 addl3 Fug peu unit rer point to the unit field 
r2),¢ 


getmem unit number 
an. a Bovey r2,-(sp) put on the stack 
> Ft WW I addl #ddb$b_name_len,r6,r8 point to Length field 
getmem (r8),r7 read the field 
retiferr return on error 
movzbl zero the other fields 


r7,r? 
addl #ddb$t_name,r6,r8 
movab device_name,r6 
getmem 1(r8),Tr6),r7 


oint to name field 
ocal storage for name 
read the name 


57 9A 
58 6 14 ¢1 
56 QO00006D9"EF YE 


retiferr return on error 
56 DD pushl rg address of name 
57 OD pushl rr push Length on stack 


: Get the type of port (PA, PU, PE, PS). 


52. 07 AS 9A 


movzbl pdt$b_pdt_type(r4),r2 3 port type 
53 E7AC CF 9E movab pdt_type,r 3; translation table 
00000000 ' GF s g*translate_address ; translate constant to name 
50 DD pushl fr ; address of ascii name 
55 ODD pushl r5 ; pdt address 
print 6,< !XL 'AC 'AD! UW 'AD> 
64 OD tstl dtSl_flink(r4) ; is there another pdt 
06 1 beql ; equal, no 
55 = 64 0 movl egySt. FU tink (rd) 8 3: next pdt to display 
FF25 1 brw 0$ ; loop for another pdt 


few Spee the summary page is complete, let's go on to display each pdt 
n full. 


assume pdt$l_flink eq 0 
push rii 


SSSI SISSIES PD I BBB BEE EWN HF POT 
MRMOAAAPSPSAOWOMOAG MRODNOOOMOO POLS WOLOL——-WVcocVTVvlW 


DPV SVS EB ES ES EE BE WNW AIA AIA DONIPINPONPONPININI NN 


—_ 
o 

ce ee ce ee a ce ce ce a ae ca ce ea ee ce ca ce ce ee ce a ce ce ce ce ee ee ee a a ee ee de ed ed 

fosdecdoctesdostestestesdesdes}ssDesdesDesdocdesdesdesdecdesJectecfesdectocdestertectestectectectesloclesTesTostestecles[e:b > > > > > 3 

a a a tt dd dd dd 

COPS OS PE SSE Se SS SSS SO COCCSCOCOCOCOCOOCOOCOCOOOCO 

WR SO OONOAOU EWN OOO NAULS WN OC OONAUS WN OO OONAUE WN OWOONOUM 


DD 20$: l : actual address of pdt 
00001897'EF FB calls #2,display_pdt ; display this pat 
getmem (r{1),r11 i; read Link field 
88 retiferr 3; return on error 
23 4 tstl ri} z; another pat 
1 4 bneq 20$ 3 not equal, display next pdt 
nt) 33 mov l #1,r0 3; return with success 
04 38 : ret 


ed 


<- 


OFFC 


04 AC OD 


55 00000525°EF ODE 


52. 07 AS 9A 

. Snec 
00000000'GF 16 

50 96D 

7E O07 AS 9A 

7E 04 A5 3C 

E710 CF =oO9F 

00000000 ' EF 92 FB 
3 D 

7E O4A C 


5E 00000050 8F CO 


— 
@ 
~o 
—~ 


-enabl 
display_pdt:: 
word 


BOS SS SSSOOSSSSOSSSSOOOCCSCS 
FPP OWOOOOOOOOVOVOVOOOVOVOOOOOOO 


PRIMI ON MOL OS FOMMOWM BM MD ONIN Ol OO 0 0 VSS 
SOOO OOOCOCOSOCOSSGSOOSSGOGOGOOOVOVOOOOOOOOOOOOVOOOVOOOVOVOOOVOOOOWJOOOOOwOO 


RON 2 2 | OOOO OOOOOSOOOO OOOO OO OCMMMcocccscccc 


PRIMDPOPIPPIPIMPIPIPINIPPINIPIPOPINPININIDS nn nn a a a tt st SS SS SS SS SS SS SS 


me ee ee ek a a ad ed = ed 8 8 2 8 8 2 ts = 8 2 = 8 a I 2 


AMNOOOOOAOOOOOOOCCWBWWWWOTWVWwWIVIOOwVOwOOwDW 
PPR PUWII  S S SQOCOCOTMAMMMMOOCOVIANAO 
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~sbttl display pdt --- display a port descriptor table 


748 (CSDA.SRCICLUSTER.MAR; 1 (29 


display_pdt 


This is a coroutine whose purpose is display each port 
descriptor table (PDT). 


Inputs: 
4(ap) = actual address of pdt 
Outputs: 


POT is displayed. 
ALL registers are preserved. 


lsb 
“n<r2.r3.74,75,r6,r7,78,79,r10,r11> 
ski age 
skip . 
pushl 4(ap) 
print 0,<!_!_ == Port Descriptor Table (PDT) !XL <---> 
Skip 
moval pdt .F3 ; local storage for pdt 
getmem a4(ap),(r5) ,#pdt$c_length i; read it in 
retiferr 3; return on error 


Translate port type 


movzbl pdtsb_pdt_type(rs) .r2 
movab pdt_type.r 


jsb g*translate_address 3 get the ascii name for the 
; port type 

pushl fr0 ; counted ascii string 

movzbl gorse pdt Sporirs? tap 3 port type 

print »<Type: TXB !AC> 


Translate port characteristics 


alloc 80 3; output buffer 

movzwl pctdu_portcharirs) .=tep! 3; port characteristics 

pushab port ¢ ar ; bit definition table 

calls 2,translate_bits ; translate bits to names 

pushl sp 3; address of string descriptor 

movzwl getty porecher (es) .=tap) 3; port characteristics 

prin <Characteristics: !Xw !AS> 

ad \2 #80,sp ; clean up the stack 

skip | 


Display the rest of the pdt 


make_symbol UCB, pdt$l_ucb0(r5) 


CLUSTER SHOW CLUSTER INFORMATION SEP-' 224: AX/VMS Macro V04-00 
$O42086 display_pdt --- display a port hort: “ Hiatt 83:47:02 USDA SRCICLU STER. MAR; 1 

if ¢ make_symbol ADP, pdt$l_adp(r5) 

Vee ¢ print =copuans at ah 

a 
1C7 § pdt. gol. »pdt_ col_2,pdt_col_3 ; display 
50 O11 00 1eoe mov l ev 3 return yuith success 
04 1C€91 8 ret 
1092 2029 -dsabl Lsb 


sHST 


1C AC 
00001CCO'EF 
1B 50 

57 

FEDB CF 01 
50.01 

57 

8 

58 (57 A 
60 8F 38 
58 OF 8 i 
05 ? 

50 OT 

57 

50 = 00 


SHOW CLUSTER INFORMATION 
pdt. 


oc 
a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
DOF HM MOOOOOOOOOOOOAOAOAOOOIOWOMOOOOOOAAOAOOAOAAOAOIAAIOOOOOOOMOOOOOAAOOOO 


7. ] 
16-SEP-1984 01:24:07 VAX/VMS Macro V04-00 Pa C 
yaddr --= display the pdt requested gr sera 19 4 gf: 1:48 USDA SRCICLUSTER- MAR: 1 ” (38) v0 


-sbttl pdt_byaddr --- display the pdt requested by the user 


pdt_byaddr 

This is a routine whose purpose is Steptey a@ port 

Seece ipter table (PDT) whic fhe user nas requested by using 
the /ADDR qualifier and a valid address of a pdt. 

Inputs: 
AP = TPARSE block (TPASL_NUMBER contains the address) 
Outputs: 


The requested PDT is displayed if a valid address is specified. 
Otherwise an informational message is sent to say invalid pdt 


address. 
ALL registers are preserved. 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Se Ge Se Be 


eenabl lsb 
pdt_byaddr:: 
sword) = “m<r2,r3,74,75,r6,07,78,79,r10,r11> 
movl tpa$l_number (ap) ,r7 ; get address of pdt 
dsb ver tage 3; is this a pdt 
Loc r0,10 ; clear, not a pdt 
; Now that we are through the validation phase the rest is trivial. 
<VAXcluster data structures> 3; set heading 
abe | page 
pushl fr? ; pass the actual address 
calls #1, display_pdt ; display it 


10$: 
movl #1,r0 


DWOWDWDO PPP FF OOOOOOOODOOOOODOOOOOOOODOOOOO0OO A 


FY OPMOODWO WMO WL WLNIOOCO MOO NVM 3 Moe 


verify_pdt: 
tstl r7 ; check for 80000000 address 
bgeq 900$ ; not valid 
addl3 dpgtsb type.r7,r8 3; point at the type field 
(r8),r8 3 attempt to read 
: return on 


error 
cmpb £8 #dyn$c_scs ; check for the right type 
bneq 9006S : Pst equal, error 

ashl #-8,r8,r8 3 point at subtype 

cmpb r8 #dyn$c_scs_pdt ; check for correct subtype 
bneq 906$ z not equal, invalid address 
mov l #1,°0 ; valid pdt 


900$: pushl r7 ;_ invalid pdt address 
t 1,<!XL is mot the address of a PDT> 
mov l #6,r0 : invalid pdt 


rs 
-dsabl lsb 


C900 09 09 09 090900 SI IN NN DDD DDD DDS TTT BBS BS BB BE EAA 
SOA AE WN OS OD NA UNE WIN OS OD NAME MAIN O OD NOAM WI 0 OO NOU EWI OW ONOUNE win 
w 
Cc 
oc 
= 
a 


SOOOCOCOOCOOCOOCOCOCOC COCO OCCOSOSOS SOS OOOOCOOOCO OOOO OOO OOOO OOOOOOO 


WWMM mmmmod Oo OV OOOOOO 
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A 9 esbttl port descriptor tables & action routines 
PRINT COLUMNS table for PDT displays 


pdt_col_1: 
“column_ list 

pdts, 20, 
<<Msg feader Size, l_msghdrsz,ul>,- 
<<Max Xfer Bcnt>,|L *maxbent,xL>, = 
<<DG Header Sized, T_dgovrhd, ul>,- 
Pt meee > L pol ayees ul>,- 
<<Fork waitatl,q2>,- 
<<uCB RB. é “uebeE, - 


<<Accept>, l_acce ste tie 

<<Al loc_0g_Buf>, ‘stlecag xl>,- 

<<Alloc_ 34:5 Buf>,T _allocmsg, x >,- 

<<Deal loc_Asg_ Buf>* | _deallomsg,xl>, - 
<<Deal loc. Msg_Buf hep. dealrgmsg,xl>,- 


4 
‘ 
0 
4 
; 
8 
9 
0 
1 pdt_col_2: 
§ “column_List 

pdt ts, 15, < 
4 <<Connect>, | ee eee ats 
5 <<Dealloc °9 “Buf>,| “deal locdg.xl>, - 
6 <<DisconnectS, | -dcofnect .xl>, - 
7 <<Unmap>, | gunmap ox >,- 
8 <<Map>,l_map,xl 
9 <<Map_ bypass>, l smapbypass, xl, - 
0 <<Map_ ire>, l_mapirp,x 
1 <<Map- Ip Bybass>. napirpbyp.x1>, « 
¢ <<Quete uy uf>, l_queuedg,x 

<<Queue Mult _Dgs>> l_queuemdgs,xl>,- 
4 <<Recycl_Msg_Buf>, |_rclmsgbuf.xl>.- 
? <eRejectS. l-Feject,xl>,=- 
7 pdt_col_3: 
8 “column_List 
9 pdt$, 17 
0 pdts. 17 as “buts, l aijchmsabuf, xl>,- 
1 <<Request_Data>, | _reqdat a,xl>,- 
é <<Send -Pata> " gefiddata.x(>, - 
<<Send-0g_B Buf> | peenddg.xl> - 
4 <<Send~ =Rsp Buf>,T gendasg.x(>.= 
5 <<Send~Cnt-Msg_But>, |_sndcntmsg,xl>,- 
§ <ehead, Count>,€_readcount,xl>,- 
<<Rls_Read Count>, l_ rlscount,xl>,- 
8 <<Mreset>, a _mreset,xl>,= 
<<Mstart>,| aastart.xl>, ~ 
0 <<Stop_ Ves>> l stop.v cs,xl>,- 
<<Send_ “Dg_ Regs, | _sendrgdg,xl>,- 


>>>>rrrrrrrrrrr rrr rrrrrrrrrrrrrrrrrrrrrrrrrr>r 


a ee ee ee ee ee ee ee eee ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ey 
VSVUVVVCVTVVTV STV VV SCV VT OOOOOOOOCOOOOOOOCOOCOWWw 


HMMM MM MMMM MMMMMmmMmmMmMmMmmMmmMmmmMmmmmnmmmmnmMmmMmmMmoooovovvlvsvscv Vv Vv VT Vl VT V07000000 


>>>>r>rrrrr> 
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R 

ome table 


7 VA 
aa te 
A 
TATE . 
, =H ® RTARTA : Haste 
= 
$$. THP1 : F 13h sl Ld te . 9A 
$$. TMP2 : 5 CDTSW"QBDT_ CNT : 98 
$si2 terenees =X 03 CDTSW-OCR CNT : 
ADD_ SYMBOL = 00000001 CDT$W-REASON e é 
oes 20900000 ; ™ COT eu REC = $ 
= 
COLSL_FREECDT : = 44dadda 33 si : 1707 R 3 
COLSW~MAXCONID = FFFFFFF 02 CDT 6BYTES p 02c8 ; 
CDL_SIZE . 0 0 4 02 CDT"BYADDR 000159 R 3 
CORPSL_CoT 5 R COT~COL_1 01689 R 
CDISB_RSTATION = 9000006A cor COL 3 109 f 
EDTSCCALCP PEND = 90008988 EDIZFAD"gevTES 0000069 RG 08 
CDTSC"ACCP™SENT = 000000 “STATE * x 03 
EEE : Hossa lee sang wn * 83 
apart : Sete Hie a : ise 
CDT$C_CON” SENT 0000005 CLUB$B_ CUR” PHASE “ 00000026 
CDTSC~CR_PEND 2 09000006 CLUBSB-FSY = 00000044 
CDTSC~OCR_PEND = 0000000 CLUBSB-LST_CODE = BOO OT AS 
COT$C_DISC_ACK = ae CLUBSC"LENGT = 00000084 
CDTSC_DISC"MTCH = 00000004 “CLUDCB s 000 
CD TSC DISC PEND = 80000006 CLUBS ~CSBOFL pe a0999005 
CDT$C_O1 “pecs = 00000005 CLUBSL-CSP = goagaose 
CDISCALENG = 99000001 CLUBSL-CUR_ COORD = 00000048 
COTSC_LISTEN = 0900000¢ ELUBSLTFL s . Sais 
rR ee : Bassa Sth ea 
id = UBSL i = 000 
COT$SC~VC_FAIL = 0000005C BSL-LST-XIN : 0 000068 
arty = BEES Seen : Beane 
COT$L~BYTREQD 0 “TOE ; 0 
ahR AL : aa IRE : Bsa 
“CRWAITOFL “ SO em Lt TINE s 
EDTSL -DeDI SCARD = 3 ELUBBT-GONAREN r : 18 
= 4 x 
CDTSL-DGSENT : EL UBSYBACROUT ‘ : 
CDOTSL_ERRADOR = CLUBSV-CLUSTER = ; 
C 1 nt an = LUBSVFKB BUSY . 
COTSL_ 4 LUBS$V"L = ¢ 
sie HEH : ute 
DT$L—PDT See Or“ OTNNOTE ~ if 
BIRR Ueto BRRRRRTR 
CDTSL~RPROCNAM : CLUBSV~aF “VOTE : ie 
DTS$L_SCSMSG = CLUBSV~QUORUM 
COT$L—SNDDATS : ~ 
COTSL-WAITOFL 


CLUSTER 
Symbol table 


CLUB_2Q0RDS 
CLUB_6BYTES 
CLUB-COL_1 
CLUB_COL_2 
CLUB_FAO-6BYTES 
CLUB" FLAGS 

C UMMARY 
OUNTER 


CLUDCBS$L~UCB 
CLUOCB$V~QF_CSPACK 
CLUDCBSV~QF ~ 
CLUDCBSV~QF “RIP 


CLUF CBSL_STEP 
CLUF CBSL-SYNC_CSB 
CLUF CBSV~ACTIVE 
CLUF CB$V—FKB_BUSY 
CLUF CBSV" PENDING 


C _FAO_A 
COLMSK~FAO"AS 


or 


SoOoQooooooooo 


DOSOOSOSOSOOSOSOSOSOSOOSOSOSOSOSOOSOOOOOSOOOOOSOOO 


SOoOoOooooCoooooooooooooooooooo 


COoOooOooooooocoo 


oOooo 
OoOOooooooocoao 


SOOO OOOCoOoOSoS 


ss 


90000001 
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NRIWWAWNW 


Pe jpofolololojoia) 


03 


$B _ECOLVL 
SB_REF CNT 
SB"REMACKLIM 
$SB_STATE 
$B_UNACKEDMSGS 
VERNUM 
C_LENGTH 
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CLUSTER SHOW CLUSTER INFORMATION 16-SEP-1984 01:24:07 VAX/VMS Macro V04-00 Pa 
Symbol table eS a ee a Re oe 38, 
CSB$W_QUORUM = 2 NOTRANS 0¢67 R 
CSBSW_RCVDSEQNM = E NO_RSPID p R 
CSBSW~SENDSEQNM = f NUCL_STRING 10C9 R 
CSBSW- VOTES = OUTPOT ereneere 
CSBQUOR VOTES ESF R PAGE_SIZE aeeneree xX 
CSB_2BYTES CDF R PBSL_FLINK = 

“2WORDS CCF R PBSL~SBLINK = 
CSB-COL_1 cer R POT R 02 
CSB-COL~ D?7F R PDT$B_PDT_TYPE = 
CSB-COL OF R PDT$B-TYPE > A 
CSB-STATES R PDTSC"LENGTH = 4 
CSB-STATUS R PDTSC_PA 2 | 
CSB- SUMMARY R PDT$C PE 2 
CSIB F5 RG PDT$C"PS = 4 
CURR_DATE FSR PDT$C—PU = 02 
CURR~T IME 6 FE R PDTSL-ACCEPT = 
DATE ROUT INE 00087E R “ADP = : 
ocB_COL_1 0 6 AFO R PDTSL-ALLOCDG = 9 
DCB~COL 2 0 ; R PDTSL-ALLOCMSG = 00 0 14 
DDBSB_DRVNAM_LEN = 00 3 4 DT$L_ CONNECT = 0000 O18 
DDBS$B_NAME = 0 14 PDT$L-DCONNECT = 90002 
DDB$T _DRVNAME = 6 99 24 PDT$L~DEALLOCDG = 000 fs 
DDBST NAME = 0 14 PDTSL_DEALLOMSG = 900002 
DEVICE NAME 99 0609 R 0 PDTS$L-DEALRGMSG = 99 024 
DIRECTORY 000 $09 R 0 PDT$L-DGOVRHD = 000 088 
DISPLAY_CDT 00013A9 RG 0 PDTSL-FLINK = 000 9 
DISPLAY~CLUB 0005A8 R 3 PDTSL_MAP = 000 ¢ 
DISPLAY~CLUDCB 000 906 R 03 PDTSL-MAPBYPASS = 000000 
DISPLAY—CLUF CB 0000930 R 03 POTSL-MAPIRP = 00000034 
DISPLAY~CSB 9000872 R 0 PDTSL-MAPIRPBYP 2 99 0038 
DISPLAY~PDT 000 189 RG 0 PDT$L MAXBCNT = 000 908¢ 
DISPLAY-RD_ENTRY 60001 95 RG 0 PDTSL-MRESET = 9099 
DISPLAY-SB-PB 0001091 R 03 PDTSL-MSGHDRSZ = 00000084 
DISPLAY—SUML INE 0001281 R 3 PDTSL_MSTA = 90000 4 
DONE O0005A4 R 0 PDTS$L-POLLSWEEP = 00000 08 
DRIVER_NAME 00 06¢5 R 02 PDTS$L QUEUE = 000000 ¢ 
DYNSC_SCS = 0000006 PDTSL-QUEUEMDGS = 004 
DYNSC~SCS_CDT = 9 990 PDTSL-RCHMSGBUF = 0044 
DYNSC-SCS-PDT = 0 PDTSL_RCLMSGBUF = 0 48 
ECO_VERS OOO0EBB R 03 PDTSL-READCOUNT = 6 
FABSL_STV eeeeeere =X PDTSL-REJEC = 4c 
FCB_COL_1 0 0 AA2 R 0 PDTS$L-REQDATA = 5 
FCB-COL~2 AD2 R PDTSL-RLS = ¢ 
FCB’ STATUS 9 120 R PDTSL-SENDDATA = 4 
F IND_PROCNAME 1268 RG POTSL~SE = 8 
FREE-CDT_LIST 0001 R PDTSL-SENDMSG = 3¢ 
GE THEM aeeeenee =X PDTSL~SENDRGDG = 
LIBSFREE_VvM eeeeeeee =X PDTSL~SNDCNTMSG = 6 
LIBSGET OM eeeeeeee =X PDT$L-STOP_VCS = 
LIBSSIGRAL eeeeeeee x PDT$L-UCBO : o¢ 
LINE COUNT eteeeeee x PDT$L-UNMAP = 6 
LOCATE_CSB 0 365 R PDTS$L “WAI TOF = A 
L 9 ER PDT$V~SNGLHOST * 

KE _CSB SYMBOLS EB R PDT$W~PORTC = 
MSG$~ SUCCESS eeeeeeee =X PDT _BYADD C92 RG 

PAG eeneeere YX PDOT_COL_ 1D5A R 
000006A5 R 2 POT_COL_2 1EOA R 


CLUSTER SHOW CLUSTER INFORMATION 
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PDT_COL_3 1EDA R 
PDT renee 6 0 R 
PORT_CHA R 
PRINT etereree xX 
PRINT_COLUMNS eereeree =X 
PRINT COLUMN VALUE eeereees x 
QUOR Vor dda eae 
QUOR_VOTE 0 44 R 
RABSC_RBF eereneee x 
$w-RSZ eeeeeree x 
ROSV_BUSY = 000 09 
T 8 8 B 02 
ROTSC_LENGTH = 1 
RDTSL_FREERD = FFFFFFFS 
RDTSL_MAXRDIDX = FFFFFFF 
ROTSL_WAITFL = FFFFFFE 
RDTSW_ SIZE = FRFFFFF 
RDT SIZE 9000650 R 02 
REMOTE 0001360 R 0 
SB$B_SYSTEMID = 9000018 
SBSC_LENGTH = 9800008 
SBSL_FLI = 90000 0 
SBSL_PBFL = 990 900¢ 
SBS$S_NODENAME = 0000001 
SBST _NODE = 00000044 
SBST_ SWTYPE = 00000024 
SBLOCK 0000645 R 02 
SCSS$GL_COL eeeeeeee k 9 
SCSSGL_PDT eeeereee YX 
SCSS$GL_ROT eeeeenree x 03 
SCS$GQ_CONF IG eeeeeeee KX 0 
SCS$GQ" DIRECT eeereeee 03 
SCS SUMMARY Q000F 06 R 0 
SDI RSB _PROC INF = 9000 iC 
SDI ~PROCNAM = 90 oC 
SDIRSC_LENGTH 5 0 
SDI CONID = tds 
$Dd1 FLINK = 000 
SET_HEADING eeereere 0 
SHOO_CLUSTER 99 338 RG 0 
SHOW_ CONNECTIONS O0010CA RG 
SHOW _PORTS ° 1A25 RG 8 
SHOW _RSPID 00017F4 RG 
SHOW _SCS Q0000ED7 RG 
SHOW _SYSTEM_BLOCK eererere xX 
SKIP LINES ereneeee x 
STATE_TRANSLATE 000012CA R 
SYSSASCTIM etereeee GX 
SYSSFAO eeenrene 
SYSSPUT eeeteree 
TIME 23 886 
TIM_BuFFER FO 2 
TPASL_NUMBER 
TRANSCATE <pppecss 200000; 
Hay a eereeeee ‘ : 
TRANS_LONG HO 000888 RF 
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tomo amma weer eecn man > 


! ; Psect synopsis ! 


secce uhoawanan> 


The working set Limit was 2100 pages. 
189601 bytes (371 pages) of virtual memory were used to butter the intermediate code 

There were 90 pages of symbol table goece ducing 70 to hold 1388 non-local we 314 Local symbols. 
143 source Lines were read in Pass 1 s Produc ing object records in Pass 

0 pages of virtual memory were used to define £ 6 macros. 


Pew mec weawen wae ne ence one ese ee + 


: ; Macro library Statistics : 


Macro sit name Macros defined 
22 ESV. OBJ weTh B;1 17 
Sar HERE NTE i 
a STARLET. Pale; 32 1 
TeTAee ist Libros es) 4 


1632 GETS were required to define 42 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:CLUSTER/OBJ=0BJ$: CLUSTER MSRC$:CLUSTER/UPDATE=(ENHS: CLUSTER) *EXECMLS$/L IB+L1B$: SDALIB/LIB 


cro 
UST 


PSECT name Allocation PSECT No. Attributes 
Ss 008 ( -) 0O ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
SABSS 0 ( -) QO1¢ +1.) NOPIC USR CON ABS LCL NOSHR' EX RD 
SDADATA 6FD ( 1789.) ¢ ( §°} NOPIC USR CON REL LE€L NOSHR NOEXE RD 
CLUSTER FAA ( g] 2°} ( -) NOPIC USR CON REL LCL NOSHR EXE RD 
LITERALS 00149C ( 5276.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR EXE AD 
Geer eeeoeeeeeescoeeeseeces} 
: Per formance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 5 00: 8: .0 00:00:00.77 
ponnand processing 136 0:00:00.4 :00:04.6 
s 1 649 0:00:20.1 701: a+ 
Synbol table sort 6 0:00: jf 3: +8893 ; “$e 
Symbol table output 41 :00: 44 0:00:00.71 
Psect synopsis output : 3: . 0:00: et, 
Cross-reference output 0:00: 3-2 0:00: 3-9 
Assembler run totals 128 0:00:28. 0:01:42.16 
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